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ABSTRACT 


An  analysis  of  two  commercially  available  Speech 
Understanding  Systems  (SUS)  was  conducted.   Each  system  was 
tested  against  various  background  noise  conditions.   Results 
obtained  were  compared  with  current  criteria  for  SUS  applica- 
tion in  aircraft.   Additionally,  since  the  P-3  Orion  aircraft 
is  being  considered  as  a  SUS  test  aircraft,  a  survey  of  Fleet 
P-3-  pilots  was  conducted.   Their  opinion  was  sought  on  what 
a  SUS  equipped  microprocessor  should  be  capable  of  accomplishing 
as  an  aid  to  the  flight  crew. 
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I.   INTRODUCTION 

Recent  years  have  seen  a  remarkable  advance  in  aircraft 
technology,  along  with  a  corresponding  increase  in  aircraft 
complexity  and  pilot  workload.   Since  a  high  pilot  workload 
has  always  been  associated  with  a  high  aircraft  accident  rate, 
it  is  most  desirable  to  find  some  means  of  reducing  pilot 
workload  as  much  as  possible. 

One  possible  answer  lies  in  the  area  of  Speech  Understand- 
ing microprocessor  systems.   These  would  allow  the  pilot  of  an 
aircraft  so  equipped  to  verbally  command  a  microprocessor 
system  which  in  turn  would  cause  the  aircraft  to  follow  the 
pilot's  instructions ,  ■ such  as  a  climb  or  descent  to  a  specified 
altitude.   The  pilot  might  also  request  information  from  the 
computer,  such  as  a  Maximum  range  profile  or  to  display  the 
appropriate  emergency  checklist  as  required.   Voice  communica- 
tion with  the  computer  would  free  the  pilot  of  the  necessity 
of  keying  in  instructions  as  current  technology  requires. 

Speech  Understanding  Systems  (3US)  have  experienced  rapid 
advancement  in  recent  years  also,  with  both  government  and 
private  industry  sponsored  programs  being  undertaken. 
Reference  1  focuses  on  the  operational  military  applications 
of  Speech  Understanding  Systems  and  provides  an  overview  of 
the  nontechnical  factors  in  the  military  environment  which  are 
likely  to  affect  the  introduction  of  SUS  capabilities  in 
military  systems. 
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Microprocessor  hobbyists  have  also  developed  systems  not 
only  for  speech  understanding  but  speech  synthesis  as  well. 
Two  such  systems  were  available  at  the  Naval  Postgraduate 
School  through  the  Human  Factors  Engineering  Lab.   Heuristics, 
Inc.  had  developed  a  system  called  SPEECHLAB  for  speech 
understanding,  and  Computalker  Consultants  had  developed 
COMPUTALKER  for  speech  synthesis. 

Both  systems  have  advantages  which  make  them  particularly 
applicable  to  aircraft  cockpit  design.   They  are  both  small  in 
physical  size  and  require  less  than  6K  of  RAM  for  their 
controlling  programs.   Vocabulary  size  dictates  the  actual 
amount  of  RAM  required  by  each  system,  with  5K  being  adequate 
for  a  16  word  vocabulary  in  the  SPEECHLAB  system.   The 
COMPUTALKER  system,  as  currently  structured,  allows  the  user 
to  encode  words  or  phrases,  according  to  phonetic  spelling 
rules,  In  up  to  76  characters  at  a  time.   Since  the  average 
word  requires  less  than  15  such  characters,  phrases  of 
approximately  four  words  could  easily  be  constructed.   The 
main  advantage  of  the  COMPUTALKER  system  is  that  many  such 
phrases  could  be  stored  in  available  memory,  loaded  as  required 
into  the  COMPUTALKER  input  buffer  area,  and  quickly  output  as 
recognizable  speech.   This  eliminates  the  requirement  for  a 
complicated  algorithm  to  assemble  prestored  words  into  phrases, 
thus  saving  valuable  memory  area.   The  current  COMPUTALKER 
input  buffer  requires  approximately  2^K  of  memory  for  encoding 
the  76  characters.   Both  systems  are  relatively  inexpensive, 
with  current  models  available  for  under  $300  in  kit  form. 
{Ref.  2  and  3] 
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This  study  was  undertaken  to  determine  the  performance  of 
each  system  as  well  as  the  possibility  of  incorporation  in  an 
aircraft  cockpit  control  system.   Specific  goals  were: 

1)  Determine  response  time  and  accuracy  of  SPEECHLAB  under 
low  background  noise  level  conditions. 

2)  Determine  the  recognizability  of  COMPUTALKER  under  low 
background  noise  conditions. 

3)  Repeating  goals  l)  and  2)  with  varying  levels  of  back- 
ground noise  intensity  to  determine  the  limiting  tolerance 
of  each  system  to  background  interference. 

Current  studies  being  carried  on  by  the  Navy  indicate  the 
possible  use  of  the  P-3  Orion  aircraft  as  a  test  bed  for  voice 
controlled  cockpit  systems  [Ref.  K\  .   With  this  in  mind,  a 
survey  of  Fleet  P-3  pilots  was  conducted  to  determine  their 
reaction  of  the  possible  incorporation  of  such  a  voice 
controlled  system  in  the  P-3.   The  survey  questions  used  are 
listed  in  Appendix  C.   The  answers  to  the  questions  are 
discussed  in  the  Results  and  Conclusions  section  of  this  report. 


II.   DESCRIPTION  OF  APPARATUS 

A.   SPEECHLAB 

The  SPEECHLAB  hardware,  manufactured  by  Hueristics,  Inc., 
Los  Altos,  California,  is  compatible  with  the  8080  micro- 
processor developed  by  Intel  and  employs  the  S100  bus  IFig.  lj  . 

Audio  input  is  amplified  and  passed  through  three  band 
pass  filters  encompassing  the  range  from  150  to  900  Hz,  900  Hz 
to  2.2  KHz,  and  2.2  to  5  KHz.   These  ranges  roughly  correspond 
to  the  first  three  resonances  of  the  human  vocal  tract.   A 
zero-crossing  detector  generates  a  voltage  proportional  to  the 
number  of  times  the  raw  waveform  crosses  the  rest  level  in  a 
given  period  of  time.   The  signal  is  then  passed  to  a  six-bit 
A/D  converter.   The  output  of  this  A/D  converter  is  fed 
directly  onto  the  computer  data  bus. 

The  controlling  software  programs  utilized  in  this  experi- 
ment were  taken  from  the  manual  supplied  with  the  SPEECHLAB 
board  and  modified  for  use  on  the  Human  Factor  Engineering 
Labs'  8080  microprocessor.   Investigations  conducted  prior  to 
commencement  of  the  experiment  showed  the  algorithm  which  used 
Euclidian  distance  measure  to  be  the  most  accurate  of  the 
programs  in  the  manual.   Of  the  most  importance  in  this  parti- 
cular program  was  the  variable  S,  which  represented  the  number 
of  divisions  into  which  the  speech  utterance  would  be  divided 
in  order  to  be  analyzed  by  the  program.   This  parameter,  set  at 
64  as  provided,  was  shown  to  have  the  greatest  effect  on 
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response  time.   Response  time  was  measured  from  the  closing 
of  the  speech  window  to  the  time  the  machine  began  to  type 
the  recognition  message  on  the  teletype.   The  speech  window 
width  as  set  by  the  algorithm  was  approximately  2.5  sec  in 
duration.   This  is  a  variable  and  could  be  changed  by  the 
operator.   The  beginning  of  the  speech  window  was  signaled  by 
a  beep  at  the  microphone  in  use.   A  similar  beep  signaled  the 
close  of  the  window  [kef.  5J  •   The  Basic  and  controlling 
programs  used  by  speech  lab  are  included  as  Appendix  A. 

B.   COMPUTALKER 

The  COMPUTALKER  hardware  was  developed  by  Computalker 
Consultants,  of  Santa  Monica,  California  (_Fig  2J . 

The  COMPUTALKER  board  is  controlled  by  CSR1,  a  software 
program  provided  with  the  system.   CSR1  is  a  phoneme-input 
speech  synthesizer  program.   It  contains  definitions  in  the 
form  of  various  table  entries  for  55  different  input  symbols 
which  represent  the  phonemes  of  the  English  language  along  with 
several  punctuation  marks.   CSR1  accepts  a  phonetic  input  string 
consisting  of  these  phonemes  and  punctuation  symbols  and  decimal 
digits  which  specify  vowel  stress  levels.   This  input  string  is 
parsed  to  fill  out  a  phonetic  feature  matrix  for  the  desired 
synthetic  phrase.   A  set  of  phonetic  structure  rules  scans  the 
matrix  to  look  for  feature  patterns  and  combinations  which 
must  be  adjusted  to  conform  to  English  pronunciation.   After 
these  adjustments,  a  parameter  generator  algorithm  scans  the 
matrix  and  produces  the  control  parameters  needed  to  operate 
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the  COMPUTALKER  Synthesizer  ^Ref  6).   The  COMPUTALKER  board 
is  shown  in  Figure  2.   The  CSR1  program  is  included  as 
Appendix  B. 

C.  SOUND  LEVEL  METER 

The  sound  level  meter  used  during  the  experiment  was  the 
General  Radio  Corporation,  Type  1565-B.   The  range  of  the 
instrument  was  from  40  dB  to  140  dB,  referenced  to  20  micro 
Newtons  per  square  meter.   Unless  otherwise  noted,  all  sound 
pressure  level  measurements  in  this  experiment  were  made  with 
this  sound  level  meter.   The  meter  also  provided  for  the  use 
of  three  different  weighting  levels,  A,  B,  or  G,  which  conform 
to  ANSI  SI. 4-1971  Type  2  and  IEC  123,1961  specifications. 
Weighting  C  was  chosen  for  use  in  this  experiment  as  it 
provided  the  flatter  response  curve  over  a  wider  range  of 
frequencies  than  either  of  the  other  weightings  [Fig.  3j . 

D.  MAICO  AUDIOMETER 

The  MAICO  Dual  Channel  Research  and  Diagnostic  Audiometer, 
Model  MA-24B,  was  used  to  provide  the  background  noise  and  pure 
tones  used  during  the  course  of  this  investigation.   The  Hearing 
Threshold  Level  in  each  channel  could  be  controlled  accurately 
through  the  range  from  -3  dB  to  112  dB.   This  equated  to  a 
range  of  from  47  dB  to  162  dB  when  referenced  to  20  micro 
Newtons  per  square  meter  [Fig.  4] . 

E.  MICROPROCESSOR 

The  microprocessor  used  for  the  experiments  was  built  from 
a  kit  manufactured  by  IMSAI  Corporation.   The  basic  kit  utilizes 
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the  INTEL  8080  microprocessor  chip  and  standard  INTEL  8080 
instructions.   An  IMS A I  Multiple  Input/Output  board  was  used 
for  input/output.   Memory  available  Included  4K  of  PROM  and 
32K  of  RAM.   Sufficient  space  was  available  for  up  to  32K 
additional  memory,  assuming  the  same  type  of  memory  packaging. 
Figure  5  shows  the  8080  microprocessor  with  the  SPEECHLAB, 
COMPUTALKER,  memory  and  I/O  boards  Installed. 

Figure  6  shows  the  Audiometer  and  Microprocessor  set  up 
outside  the  test  booth.   The  microprocessor  was  controlled  with 
a  standard  teletype  keyboard.   Figure  7  shows  the  interior  of 
the  test  booth.   All  inputs  to  the  booth  were  channeled  through 
the  patch  box  on  the  right  of  the  table.   The  microphone  stand 
had  full  freedom  of  motion  which  allowed  the  subjects  to 
position  the  microphone  within  one  inch  of  their  lips  while 
speaking.   The  speakers  used  to  introduce  noise,  tones  and  the 
COMPUTALKER  speech  are  located  in  the  rear  of  the  booth. 
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III.   EXPERIMENTAL  PROCEDURE 

All  experiments  were  conducted  at  the  Human  Factors 
Engineering  Laboratory  at  the  Naval  Postgraduate  School. 

A.   SPEECHLAB  TESTING 

For  the  voice  recognition  tests,  each  subject  trained  the 
SPEECHLAB  unit  on  the  ten  word  vocabulary  selected  from  Ref.  1. 
No  background  noise  was  introduced  into  the  booth  in  which  the 
subjects  operated  from.   Noise  level  in  the  booth  under  these 
conditions  was  measured  at  40  dB  using  the  sound  level  meter. 
After  training,  the  performance  rrode  of  the  system  was  entered. 
Background  noise  level  remained  at  40  dB  for  the  tests.   The 
subject  was  required  to  read  through  the  word  list,  in  order, 
five  times,  thus  obtaining  fifty  samples  of  speech  utterances 
from  each  subject  per  test.   Each  test  was  repeated  three  times, 
with  the  S  parameter  of  the  SPEECHLAB  algorithm  set  at  64,  32, 
and  16.   This  was  done  to  test  the  performance  of  the  algorithm 
with  varying  sample  sizes.   Typical  results  are  shown  in 

Figure  8. 

- 

Next,  various  background  noise  levels  were  introduced  in 
the  booth  to  determine  system  response  to  noise.   The  subjects 

followed  the  same  procedures  as  in  the  no-noise  tests.   The  3 
parameter  remained  set  at  64  throughout  the  tests  as  this  was 

determined  to  be  the  most  accurate  mode  for  SPEECHLAB.   Back- 
ground noise  level  was  raised  in  5  dB  increments  from  60  dB  to 
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80  dB.  However,  in  no  test  was  the  SPEECHLAB  system  able  to 
accomodate  more  than  74  dB.  Typical  results  for  this  series 
of  tests  are  shown  in  Figure  9. 

To  test  the  effect  of  frequency  on  the  SPEECHLAB  system, 
pure  tones  ranging  from  4000  Hz  to  8000  Hz  were  induced  and 
the  tests  repeated  by  the  subjects.   Incremental  tone  steps 
were  1000  Hz.   Typical  test  results  are  shown  in  Fig.  10.   A 
summary  of  results  from  the  SPEECHLAB  tests  is  presented  in 
Fig.  11. 

B.   COMPUTALKER  TESTING 

To  test  the  accuracy  with  which  COMPUTALKER  produced  speech, 
the  same  word  list  used  for  the  SPEECHLAB  tests  was  prepared 
for  use  with  COMPUTALKER.   Each  word  on  the  list  was  rearranged 
according  to  the  phonetic  spelling  rules  used  by  COMPUTALKER. 
Various  combinations  of  phonetic  spellings  were  tried  until  an 
acceptable  utterance  was  produced.   This  list  of  words,  which 
were  now  optimized  to  the  principal  researcher,  was  then 
presented  to  each  of  the  subjects.   Re-optimization,  where 
necessary,  was  done  until  each  subject  readily  recognized  each 
word  on  the  list.   The  word  list  and  final  phonetic  spelling 
was  as  follows: 

(1)  ALTITUDE  --  AH2LTTIYTUX3D 

(2)  SPEED  --  SHPQIY3DX 

(3)  HEADING  --  HHEHDIYNGX 

(4)  POSITION  --  P0HSIH1SSIY0HN 

(5)  TACAN   --  TAE3QKAAN 
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DATE        11   Aug    70 

SUBJECT        Fifer 

SPEECHLAB       X 

S 

COMPUTALKER  

PROGRAM 

32 


BACKGROUND  NOISE  65  dB 
FREQUENCY     -- 


TIME    (AVERAGE)      26    sec 


^ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

3 

1 

2 

2 

3 

3 

3 

1 

1 

4 

4 

1 

5 

3 

1 

l 

6 

2 

3 

7 

1 

•2 

1 

8 

1 

1 

e 

3 

9 

1 

4 

0 

3 

2 

WORD   LIST 

1)  ALTITUDE 

2)  SPEED 

3)  HEADING 

4)  POSITION 
5.)   TACAN 


Total 

12 

50 

6) 

VOR 

7) 

ILS 

8) 

GLIDES LOPE 

9) 

CLIMB 

0) 

DESCEND 

0.24 


Figure  9, 


Typical  Results  of  SPEECHLAB  Tests 
(with  various  noise  levels) 
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DATE        22    Aug    78 
SUBJECT     Buresh 


SPEECHLAB       X 


COMPUTALKER 
PROGRAM  


S   64 


BACKGROUND  NOISE  75  dB 
FREQUENCY   4000  Hz 


TIME    (AVERAGE)      28    sec 


*X 

1 

2 

3 

4 

5 

6 

7 

8 

g 

0 

1 

3 

1 

l 

.2 

1 

4 

3 

4 

l 

4 

2 

3 

5 

1 

4 

6 

1 

4 

7 

5 

8 

r 

5 

9 

1 

4 

0 

5 

WORD   LIST 

1)  ALTITUDE 

2)  SPEED 

3)  HEADING 

4)  POSITION 
5.)   TACAN 

Figure  10. 


Total 

41 
50 

6) 

VOR 

7) 

ILS 

8) 

GLIDES  LOPE 

9) 

CLIMB 

0) 

DESCEND 

0.82 


Typical  Results  of  SPEECHLAB  Tests 
(with  various  tone  levels) 


25 


NO  BACKGROUND 

NOISE  (l) 

BACKGROUND  NOISE 
(2) 

BACKGROUND  TONE 
(3) 

S 

dB 

Hz 

SUBJECT 

64 

32 

16 

60 

65 

70 

74 

4K 

5K 

6K 

7K 

8K 

1 

100 

84 

58 

86 

70 

42 

37 

100 

98 

82 

92 

90 

2 

76 

46 

32 

32 

24 

33 

20 

76 

72 

72 

72 

70 

3 

86 

78 

52 

78 

60 

37 

27 

82 

86 

86 

80 

80 

4 

90 

82 

60 

82 

60 

30 

24 

80 

82 

75 

75 

78 

AVERAGE 

88 

72.5 

50.5 

59.5 

53.5 

35.5 

27 

84.5 

84.5 

78.8 

79.8 

79.5 

(1)  With  no  noise  input  to  the  test  booth,  the 
noise  level  inside  the  booth  was  measured  to 
be  40  dB. 

(2)  Background  noise  was  broadband  white  noise. 

(3)  Pure  tones  were  input  at  75  dB. 


Figure  11.   Summary  of  Results  from  SPEECHLAB  Testing 
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(6)  VOR    --   WIY1,    0H1UW,    REH1R 

(7)  ILS    --   AY1,    ELL,    SS 

(8)  GLIDESLOPE  --  GXLAY3DSLUHP 

(9)  CLIMB  --  KLAY1MB 
(0)   DESCEND  --  DIYSEHND 

The  phonetic  spelling  rules  used  by  COMPUTALKER  are  shown  in 
Fig.  12. 
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Consonants 

Vow( 

Jls 

P 

p 

pie 

IY 

i 

heed 

T 

t 

tie 

IH 

I 

hid 

K 

k 

key 

EY 

ei 

hayed 

B 

b 

by 

EH 

£ 

head 

D 

d 

die 

AE 

3S, 

had 

G 

g 

guy 

AA 

a 

hod 

M 

m 

my 

AO 

0 

hawed 

N 

TI 

nigh 

OW 

Qy 

hoed 

NX 

V 

hang 

UH 

Q 

hood 

F 

f 

fie 

uw 

aw 

who1  d 

V 

V 

vie 

ER 

3~ 

herd 

TH 

e 

thigh 

AH 

A 

Hudd 

DH 

3 

thy 

AY 

21 

hi  de 

S 

s 

sigh 

AW 

aw 

how 

Z 

z 

zoo 

OY 

91 

boy 

SH 

/ 

shy 

AX 

3 

about 

ZH 

3 

vis  ion 

IX 

i 

Davi  d 

L 

I 

lie 

OH 

0 

core 

W 

w 

we 

ux 

u 

too 

R 

r 

rye 

Y 

J 

you 

HH 

h 

high 

CH 

tf 

chime 

JH 

43 

j  i  ve 

WH 

wh 

why 

EL 

I 

batt]_e 

EM 

til 

bottorn 

EN 

77 

button. 

Q 

? 

(glottal 

stop) 

Punctuation 

space   word  boundary 
,     pause/s  i lence 
fal 1 ing  pitch 
?     r is  ing  pi  tch 
return   end  of  input 


Stress  Marks 


0 

1 

l 

2 
3 
k 
5 
>  5 


no  stress 

primary  (max)  stress 
secondary  stress 
terticry  stress 
etc. 

no  stress 


Several  other  symbols  are  used 
mternally  by  certain  rules. 
These  may  also  be  used  in  the 
input  string. 

KX  coo  (K  before  back  vowel 

GX  goo  (G  before  back  vowel 

RX  ca_rd  (R  after  a  vowel) 

LX  kiJJ.  (L  after  a  vowel) 

DX  p  i  _t_y  (T  between  vowels) 

YX  diphthong  ending 

VX  diphthong  ending 


Table  I 


CSR1  Phonetic  Input  Symbols 


Stress  marks  may  be  placed  on  any  vowe I  in  the  form  of  a  following 
digit  from  5  (weakest  stated  stress)  to  1  (maximum  stress).   Any  stress 
digit  greater  than  5  will  be  ignored.   Ending  an  input  string  with  a 
period  or  question  mark  has  the  effect  of  changing  the  ending  pitch, 
falling  or  rising,  respectively.   A  comma  ha^    no  effect  on  the  pitch, 
but  only  introduces  a  pause  in  the  pronunciation. 


Figure  12.   COMPUTALKER  Phonetic  Spelling  Rules 


28 


IV.   RESULTS  AND  CONCLUSIONS 

A.   SPEECHLAB 

Results  from  the  SPEECHLAB  tests  showed  that  while  the 
performance  approximated  what  the  manufacturers  claim,  i.e., 
acceptability  percentage  in  the  high  nineties,  any  significant 
amount  of  background  noise  causes  a  marked  deterioration  in 
its  performance.   Above  7^  dB,  the  algorithm  would  not  accept 
speech  utterances  at  all,  rather  signaling  "SPEECH  OUT  OF 
WINDOW",  Indicating  that  It  thought  the  noise  was  the  speech 
utterance . 

An  attempt  was  made  to  improve  the  performance  of  the 
algorithm  by  training  it  with  the  background  noise  set  at  62  dB. 
While  this  did  improve  the  recognition  rate  of  the  program  with 
the  background  noise  level  at  60  and  65  dB,  performance  again 
fell  off  rapidly  at  70  dB  and  at  74  dB  the  algorithm  again 
could  not  distinguish  the  speech  from  the  background  noise. 

A  noise  cancelling  boom  mike  would  almost  certainly  have 
improved  the  performance  of  the  system,  as  would  the  wearing  of 
an  oxygen  mask.   However,  as  noted  by  previous  researchers 
[Ref.  7j  ,  the  background  noises  induced  by  heavy  breathing 
under  moments  of  stress  and  high  G  interfere  greatly  with  a 
speech  recognition  system's  performance. 

The  response  time  for  the  most  accurate  algorithm,  i.e., 
with  S  set  at  64,  was  judged  to  be  unacceptable,  averaging  out 
to  27  sec  in  all  tests.   However,  with  the  S  parameter  set  at 
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l6,  the  average  response  time  was  9  sec,  a  slightly  high  but 
possibly  acceptable  time  [Ref .  8J  .   The  system  accuracy  in 
this  case  dropped  to  just  slightly  more  than  50$,  clearly 
unacceptable . 

Obviously,  the  algorithm  provided  with  the  SPEECHLAB 
hardware  requires  a  great  deal  of  improvement.   If  this  Is  not 
possible,  and  none  of  the  improvements  suggested  by  the 
SPEECHLAB  manual  [Ref.  9j  produce  noticeable  improvement,  a 
completely  new  algorithm  must  be  found  before  the  SPEECHLAB 
system  could  be  considered  acceptable  for  military  use. 
Further  testing  should  also  include  vibration  levels  of 
various  intensities  to  simulate  aircraft  motion. 

Two  observations  made  during  the  course  of  the  experiment 
suggest,  however,  that  the  low  recognition  rates  obtained  may 
not  be  due  entirely  to  the  algorithms  used. 

First,  it  was  noted  that  as  a  subject  became  more  used  to 
"talking"  to  the  machine,  a  slight  improvement  in  the  algorithm's 
recognition  rate  was  seen.   It  appears  that  the  subject  began 
to  pronounce  the  words  on  the  list  in  a  more  consistent  manner 
after  numerous  repetitions.   This  was  especially  true  when  the 
subject  was  told  that  a  successful  recognition  had  been  achieved. 
This  appeared  to  reinforce  in  the  subject's  mind  the  particular 
pronunciation  which  produces  the  successful  recognition.   If 
the  subjects  had  been  trained  In  this  manner  prior  to  commence- 
ment of  the  testing,  the  Initially  lower  recognition  rates 
might  have  been  avoided.   It  would  seem  therefore  that  operator 
training  would  play  a  significant  role  in  any  successful  voice 
recognition  system. 
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The  second  observation  concerned  the  day-to-day  changes 
that  occur  in  the  human  voice.   On  one  occasion,  a  subject 
reported  for  testing  with  a  cold  which  had  changed  the  tone  of 
his  voice  considerably.   Although  this  particular  subject  had 
enjoyed  one  of  the  highest  recognition  rates  of  the  group  (in 
the  middle  nineties ),  on  this  particular  day  his  recognition 
rate  fell  to  just  below  80/6.   No  other  subject  was  tested  with 
any  other  ailment,  but  it  is  felt  that  such  things  as  a  sore 
throat,  asthma  or  other  allergic  reactions  which  changed  the 
tone  of  the  voice  would  cause  a  similar  drop  in  the  system 
performance . 

The  obvious  conclusion  to  be  drawn  here  is  that  some  means 
must  be  developed,  whether  through  software  programming  or 
hardware  devices,  to  account  for  possible  daily  changes  in  an 
operator's  voice  characteristics. 

Several  attempts  were  made  to  train  the  SPEECHLAB  algorithm 
with  one  subject  and  test  it  with  another  person  speaking.   The 
results  were  so  poor  that,  in  general,  it  appears  impractical 
with  the  present  system  to  attempt  to  use  it  in  such  a  manner. 
As  presently  set  up,  the  best  method  to  use  the  system  with 
more  than  one  person  would  be  to  train  the  algorithm  with  each 
person's  voice.   This  would,  of  course,  require  more  storage 
space  and  greatly  Increase  recognition  time. 

B.   COMPUTALKER 

The  results  from  the  COMPUTALKER  testing  were  unique  in 
that  after  initial  presentation  of  the  word  list,  all  subjects 
scored  100$  on  all  tests.   Although  the  initial  recognition 
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rate  during  the  optimization  testing  was  very  low  (20$),  the 
subjects  rapidly  related  the  machine  speech  with  the  proper 
word.   Changing  background  noises  and  tone  had  almost  no 
effect  on  the  tests.   The  only  area  of  difficulty  encountered 
was  due  to  the  nature  of  the  white  noise  introduced  to  the 
testing  chamber.   The  sound  produced  by  the  noise  is  best 
described  as  a  hiss,  which  is  very  similar  to  the  letter  "S" 
as  pronounced  by  COMPUTALKER.   This  had  the  effect  of  masking 
the  letter  "S"  when  the  machine  spoke  the  word  "ILS".   All 
subjects,  however,  were  able  to  hear  the  "IL"  part  of  the  word 
with  no  trouble  and  correctly  deduced  the  word  to  be  "ILS". 

At  this  point  in  the  experiment,  the  testing  procedure  was 
modified  since  the  vocabulary  under  consideration  was  obviously 
too  small,  allowing  the  subjects  to  easily  determine  the 
correct  choice  by  process  of  elimination.   Another  ten  words 
were  added  to  the  vocabulary  and  optimized  as  before.   The 
additional  words  and  their  phonetic  spelling  were  as  follows: 


(11 
(12 
(13 
(14 
(15 
(16 
(17 
(18 

(19 
(20 


ABOVE  --  AHBAHOHV 

BELOW  —  BIY3L0W2 

CHECK  --  CHEHK 

DOWN  --  DAOWHN 

ENGINE  --  EHNJHIHN 

FIRE  --  FQAY1R 

GEAR  --  GEHER 

NAVIGATION  --  NAE1VEHGEY1S0HN 

PRESSURE  --  PREHSUHR 

SOME  --  SQEMN 
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Various  combinations  of  ten  words  from  the  twenty  word 
vocabulary  were  chosen  and  presented  to  the  subjects.   Although 
results  were  expected  to  be  poor,  the  opposite  was  true.   Only 
one  subject  missed  one  word.   However,  all  expressed  the 
opinion  that  they  had  had  a  much  more  difficult  time  in 
determining  the  correct  word.   This  would  infer  that  they 
thought  about  their  choice  much  longer  than  required  before. 
This  is  obviously  undesirable,  as  a  pilot  can  usually  ill 
afford  to  have  his  attention  drawn  away  from  the  task  of 
flying  his  aircraft.   One  solution  to  this  problem  would  be  to 
limit  the  machine's  vocabulary  to  twenty  words  or  less,  but 
this  might  not  be  feasible  in  all  situations. 

One  method  of  increasing  the  vocabulary  size  that  could  be 
used  with  the  COMPUTALKER  system  would  be  to  improve  the 
quality  of  the  sounds  produced  by  the  governing  phonetic 
spelling  rules.   It  was  noted  throughout  the  course  of  the 
experiments  that  the  sounds  produced  by  COMPUTALKER  were  not 
quite  what  was  expected  from  the  description  in  the  phonetic 
rules  [Fig.  12] .   Most  sounds  were  close  enough  that  the 
subjects  readily  adjusted  to  them  with  little  or  no  difficulty. 
Some  letters  of  the  alphabet  were  difficult  to  recognize,  as 
was  noted  previously  about  the  letter  "S",  the  sound  in  this 
case  being  more  of  a  hiss  than  the  "es"  sound  normally 
associated  with  the  letter.   Also,  COMPUTALKER  produced  soft 
sounds  much  more  readily  than  hard  ones,  most  notably  at  the 
end  of  a  word.   For  example,  the  word  "CHECK"  is  pronounced 
more  like  "cheg"  by  the  system.   Although  this  was  a  minor 
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problem  in  this  instance,  incorporation  of  the  word  "CHECK" 
in  certain  phrases  may  lead  to  ambiguous  meanings  due  to  its 
mispronunciation. 

Correcting  the  sounds  produced  by  the  phonetic  rules  used 
by  the  system  would  Involve  changing  the  computer  code  which 
controls  the  COMPUTALKER  hardware.   These  rules  are  contained 
in  Sections  2  through  6  of  the  CSR1  Source  listing.   Due  to 
time  constraints,  no  such  improvements  were  attempted,  but  are 
considered  to  be  necessary  to  upgrade  the  quality  of  the 
COMPUTALKER  system. 

C .   SURVEY 

The  general  results  of  the  survey,  while  not  conclusive, 
indicate  that  most  of  the  pilots  would  prefer  the  computer  be 
used  to  calculate  such  things  as  Weight  and  Balance,  Proven 
Limit  of  Endurance  profiles  (PLE),  Maximum  Range  profiles,  etc, 
Many  felt  it  would  be  advantageous  to  have  the  computer  warn 
the  pilots  of  Impending  failures  of  systems  or  emergencies, 
such  as  slowly  falling  oil  pressure,  increasing  temperatures 
in  engine  sections,  etc.   Several  pilots  favored  a  verbal 
warning  from  the  computer,  in  addition  to  the  normal  indica- 
tions, in  the  case  of  an  approach  to  landing  with  the  gear 
still  up. 

Few  pilots  indicated  a  willingness  to  allow  the  computer 
to  actually  take  physical  control  of  the  aircraft  under  any 
circumstance,  although  a  few  would  have  allowed  the  computer 
to  do  so  with  the  pilot's  explicit  approval.   The  latter  would 
allow  the  computer  to  suggest  an  appropriate  course  of  action 

34 


and,  if  It  met  with  the  pilot '3  approval,  give  permission  to 
carry  out  the  procedure.   Interestingly,  many  pilots  expressed 
concern  that  a  computer  system  of  this  type  would  be  detrimental 
to  the  morale  of  the  Flight  Engineer  and  cause  complacency 
among  the  pilots  themselves.   A  few  pilots  were  even  of  the 
opinion  that  the  autopilot,  while  of  great  benefit  on  long 
transit  flights,  was  causing  complacency  and  reduced  flying 
skills  among  some  pilots. 

It  would  seem  from  the  general  reaction  of  most  pilots 
that  the  Initial  flight  testing  and  operational  experience  of 
a  SUS  be  conducted  at  the  TACCO  and  Navigator  stations  aboard 
the  aircraft,  as  indicated  by  Ref.  4. 
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APPENDIX  A 
SPEECHLAB  COMPUTER  PROGRAMS 

The  controlling  program  for  SPEECHLAB  is  written  in  BASIC. 
The  SPEECH  Driver  requires  modifications  be  made  to  the  BASIC 
system  being  used.   In  order  to  save  space,  Hueristics,  Inc., 
decided  to  use  the  Palo  Alto  TINY  BASIC  system,  developed  by 
Dr.  Li -Chen  Wang.   TINY  BASIC  handles  only  interger  numbers, 
but  this  is  not  a  major  problem  In  the  SPEECHLAB  program. 
TINY  BASIC,  the  required  modifications  for  the  SPEECHLAB 
Driver,  and  the  SPEECHLAB  controlling  programs  are  reproduced 
on  the  following  pages  with  the  permission  of  Hueristics,  Inc. 
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TINY  BASIC  FOR  INTEL  8080 

VERSION  1.0 

BY  LI -CHEN  WANG 

10  JUNE,  19  7  6 

I2COPYLEFT 

ALL  WRONGS  RESERVED 


**»  2ERO  PAGE  SUBROUTINES  *** 

THE  8080  INSTRUCTION  SET  LETS  YOU  HAVE  8  ROUTINES  IN  LOW 
MEMORY  THAT  MAY  BE  CALLED  BY  RST  N.  N  BEING  0  THROUGH  7. 
THIS  IS  A  ONE  BYTE  INSTRUCTION  AND  HAS  THE  SAME  POWER  AS 
THE  THREE  BYTE  INSTRUCTION  CALL  LLHH.   TINY  BASIC  WILL 
USE  RST  0  AS  START  OR  RESTART  AND  RST  1  THROUGH  RST  7  FOR 
THE  SEVEN  MOST  FREQUENTLY  USED  SUBROUTINES. 
TWO  OTHER  SUBROUTINES  ( CRLF  AND  TSTNUM)  ARE  ALSO  IN  THIS 
SECTION.   THEY  CAN  BE  REACHED  ONLY  BY  3 -BYTE  CALLS. 


0000 

F3 

0001 

310020  aaae 

0004 

C3BA00 

0007 

m 

4C 

0008 

E3 

0009 

EF 

000A 

BE 

000B 

* 

C3  6  800 

000E 

* 

3E0D 

0010 

F5 

0011 

3A0008 

0014 

B7 

0015 

* 

C31A07 

0018 

CD5504 

001B 

ES 

001C 

C31104 

001 F 

IT 

57 

0020 

7C 

0021 

BA 

0022 

C0 

002  3 

7D 

0024 

EB 

002  5 

C9 

002  6 

414E 

002  8 

1A 

002  9 

FE20 

002B 

C0 

002C 

13 

002D 

« 

C3  2300 

0030 

Fl 

START 


CRLF 


SSI 


ORG 

X ' 0000 ' 

DI 

1 

LODI 

SP, STACK 

JMP 

ST1 

CHAR 

'L' 

XCH 

HL,( SP) 

IGNBLK 

CMP 

M 

JMP 

TCI 

LODI 

A.aCR 

PUSH 

AF 

LD 

A.OCSW 

IOR 

A 

JMP 

OC2 

CALL 

EXPR2 

PUSH 

HL 

JMP 

EXPR1 

CHAR 

'W' 

LOD 

A,H 

CMP 

D 

RET 

NZ 

LOD 

A,L 

CMP 

E 

RET 

U 

CHAR 

'AN1 

LD 

A,(DE) 

CMP  I 

1    1 

RET 

NZ 

INC 

DE 

JMP 

SSI 

POP 

AF 

01 

**«  START/RESTART  *** 
INITIALIZE  THE  STACK 
GO  TO  THE  MAIN  SECTION 


***  TSTC  OP.  RST  1  *** 
IGNORE  BLANKS  AND 
TEST  CHARACTER 
REST  OF  THIS  IS  AT  TCI 

***  CRLF  *w* 

**«  OUTC  OR  RST  2  *** 
PRINT  CHARACTER  ONLY 
IF  OCSW  SWITCH  IS  ON 
REST  OF  THIS  IS  AT  OC2 

***  EXPR  OR  RST  3  *** 

EVALUATE  AN  EXPRESION 
REST  OF  IT  IS  AT  EXPR1 


***  COMP  OR  RST  4  *»' 
COMPARE  HL  WITH  DE 
RETURN  CORRECT  C  AND 
Z    FLAGS 
3UT  OLD  A  IS  LOST 


***  IGN3LK/RST  5  **» 
IGNORE  ELANKS 
IE  TEXT  (WHERE  DE->) 
AND  RETURN  THE  FIRST 
NON-BLANK  CHAR.  IN  A 

***  FINISH/RST  6  **■ 
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0031 

CD9105 

CALL 

FIN 

003  4 

C3A405 

JMP 

QWHAT 

003  7 

it 

47 

CHAR 

'G' 

0038 

EF 

1GNBLK 

0039 

D640 

SUBI 

'&' 

003B 

D8 

RET 

C 

033C 

C2  5800 

JMP 

NZ.TV1 

003  P 

13 

INC 

DE 

0040 

CDFB04 

CALL 

PARN 

004  3 

29 

ADD 

HL.HL 

004  4 

DA9F00 

JMP 

C  ,  QHOW 

004  7 

D5 

POSH 

DE 

004  8 

EB 

XCH 

HL,DE 

004  9 

CD3D05 

CALL 

SIZE 

004  C 

E7 

COMP 

004  D 

DAD005 

JMP 

C,ASORRY 

0050 

21001F  aeee 

LODI 

HL.VARBGN 

0053 

CD6005 

CALL 

SUBDE 

0056 

Dl 

POP 

DE 

0057 

C9 

RET 

U 

0058 

FE1B 

TV1     CMPI 

27 

00  5  A 

3F 

CMC 

1 

005B 

D8 

RET 

C 

005C 

13 

INC 

DE 

005D 

21001F  aaee 

LODI 

HL , VARBGN 

0060 

07 

ROT 

L 

0061 

35 

ADD 

L 

006  2 

6F 

LOD 

L.A 

006  3 

3E00 

LODI 

A,0 

006  5 

8C 

ADC 

H 

006  6 

67 

LOD 

H,A 

006  7 

* 

C9 

RET 

U 

* 

TSTC    XCH 

HL,(  SP) 

* 

IGNBLK 

* 

CMP 

M 

006  8 

23 

TCI     INC 

HL 

006  9 

CA7  300 

JMP 

Z,TC2 

006C 

C5 

PUljH 

BC 

006D 

4E 

LOD 

CM 

006  E 

0600 

LODI 

B,0 

0070 

09 

ADD 

HL,BC 

0071 

CI 

POP 

BC 

007  2 

IB 

DEC 

DE 

007  3 

13 

TC2     INC 

DE 

0074 

23 

INC 

HL 

007  5 

E3 

XCH 

HL,( SP) 

007  6 

* 

C9 

RET 

U 

007  7 

210000 

TSTNUM  LODI 

HL,0 

007A 

44 

LOD 

B,H 

007B 

EF 

IGNBLK 

007C 

FE30 

TNI     CMPI 

'0' 

007E 

D8 

RET 

C 

007  F 

FE3A 

CMPI 

X'  3A' 

0081 

D0 

RET 

NC 

0082 

3EF0 

LOCI 

A,X'F0' 

0084 

A4 

AND 

H 

008  5 

C2  9F00 

JMP 

NZ  ,QHOW 

CHECK  END  OF  COMMAND 
PRINT  "WHAT?"  IF  WRONG 


***  TSTV  OR  RST  7  *** 

TEST  VARIABLES 

CiNOT  A  VARIABLE 

NOT  "@"  ARRAY 

IT  IS  THE  "8"  ARRAY 

@  SHOULD  BE  FOLLOWED 

BY  ( EXPR)  AS  ITS  INDEX 

IS  INDEX  TOO  BIG? 

WILL  IT  OVERWRITE 

TEXT? 

FIND  SIZE  OF  FREE 

AND  CHECK  THAT 

IF  SO,  SAY  "SORRY" 

IF  NOT,  GET  ADDRESS 

OF  at EXPR)  AND  POT  IT 

IN  HL 

C  FLAG  IS  CLEARED 

NOT  @,  IS  IT  A  TO  Z? 

IF  NOT  RETURN  C  FLAG 

IF  A  THROUGH  Z 
COMPUTE  ADDRESS  OF 
THAT  VARIABLE 
AND  RETURN  IT  IN  HL 
WITH  C  FLAG  CLEARED 


***  TSTC  OR  RST  1  *** 
THIS  IS  AT  LOC.  8 
AND  THEN  JMP  HERE 
COMPARE  THE  BYTE  THAT 
FOLLOWS  THE  RST  INST. 
WITH  THE  TEXT  ( DE->) 
IF  NOT  -,  ADD  THE  2ND 
BYTE  THAT  FOLLOWS  THE 
RST  TO  THE  OLD  PC 
I.E. ,  DO  A  RELATIVE 
JUMP  IF  NOT  - 
IF  -,  SKIP  THOSE  BYTES 
AND  CONTINUE 


**«  TSTNUM  *** 

TEST  IF  THE  TEXT  IS 

A  NUMBER 

IF  NOT,  RETURN  0  IN 

B  AND  HL 

IF  NUMBERS,  CONVERT 

TO  BINARY  IN  HL  AND 

SET  B  TO  #  OF  DIGITS 

IF  H^255 ,  THERE  IS  NO 

ROOM  FOR  NEXT  DIGIT 
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0088 

04 

INC 

B 

0089 

C5 

PUSH 

BC 

008A 

444D 

LOD 

BC,HL 

008C 

29 

ADD 

HL.HL 

008D 

29 

ADD 

HL.HL 

008E 

09 

ADD 

HL,BC 

008  F 

29 

ADD 

HL.HL 

0090 

1A 

LD 

A,(  DE) 

0091 

13 

INC 

DE 

009  2 

E60F 

AND  I 

X'0F' 

009  4 

85 

ADD 

L 

009  5 

6F 

LOD 

L,A 

009  6 

3E00 

LODI 

A,0 

009  8 

8C 

ADC 

H 

009  9 

67 

LOD 

H,A 

009A 

CI 

POP 

BC 

009B 

1A 

LD 

A,( DE) 

009C 

F2  7C00 

JMP 

NS.TN1 

009  F 

D5 

QHOW 

PUSH 

DE 

00A0 

11A600 

AHOW 

LODI 

DE.HOW 

00A3 

C3A805 

JMP 

ERROR 

00A6 

484F573F 

HOW 

CHAR 

' HOW? ' 

00AA 

0D 

00AB 

4F4B 

OK 

CHAR 

'OK' ,@ 

00AD 

0D 

00AE 

574841543F 

WHAT 

CHAR 

•WHAT? 

00B3 

0D 

00B4 

534F525259 

SORRY 

CHAR 

'SORRY 

00B9 

0D 

B  COUNTS  #  OF  DIGITS 

HL-10*HL  +  (  NEW  DIGIT) 
WHERE  10"  IS  DONE  BY 
SHIFT  AND  ADD 


AND  ( DIGIT)  IS  FROM 
STRIPPING  THE  ASCII 
CODE 


DO  THIS  DIGIT  AFTER 
DIGIT.  S  SAYS  OVERFLOW 
***  ERROR:  "HOW?"  *** 


.  @CR 


* 

*  **«  MAIN  *** 

* 

*  THIS  IS  THE  MAIN  LOOP  THAT  COLLECTS  THE  TINY  BASIC  PROGRAM 

*  AND  STORES  IT  IN  THE  MEMORY. 

* 

*  AT  START,  IT  PRINTS  OUT  "( CR) OK( CR) " ,  AND  INITIALIZES  THE 

*  STACK  AND  SOME  OTHER  INTERNAL  VARIABLES.   THEN  IT  PROMPTS 

*  ">"  AND  READS  A  LINE.   IF  THE  LINE  STARTS  WITH  A  NON-ZERQ. 

*  NUMEER,  THIS  NUMBER  IS  THE  LINE  NUMBER.   THE  LINE  NUMBER' 

*  (  IN  16  BIT  BINARY)  AND  THE  REST  OF  THE  'LINE  (INCLUDING  CR) 

*  IS  STORED  IN  THE  MEMORY.   IF  A  LINE  WITH  THE  SAME  LINE 

*  NUMBER  IS  ALREDY  THERE,  IT  IS  REPLACED  3Y  THE  NEW  ONE.   IF 

*  THE  REST  OF  THE  LINE  CONSISTS  OF  A  CR  ONLY,  IT  IS  NOT  STORED 

*  AND  ANY  EXISTING  LINE  WITH  THE  SAME  LINE  NUMBER  IS  DELETED. 

* 

*  AFTER  A  LINE  IS  INSERTED,  REPLACED,  OR  DELETED,  THE  PROGRAM 

*  LOOPS  BACK  AND  ASK  FOR  ANOTHER  LINE.   THIS  LOOP  WILL  BE 

*  TERMINATED  WHEN  IT  READS  A  LINE  WITH  ZERO  OR  NO  LINE 

*  NUMBER;  AND  CONTROL  IS  TRANSFERED  TO  "DIRECT". 

* 

*  TINY  BASIC  PROGRAM  SAVE  AREA  STARTS  AT  THE  MEMORY  LOCATION 

*  LABELED  "TXTBGN"  AND  ENDED  AT  "TXTEND".   WE  ALWAYS  FILL  THIS 

*  AREA  STARTING  AT  "TXTBGN",  THE  UNFILLED  PORTION  IS  POINTED 

*  BY  THE  CONTENT  OF  A  MEMORY  LOCATION  LABELED  "TXTUNF" . 

*  THE  MEMORY  LOCATION  "CURRNT"  POINTS  TO  THE  LINE  NUMBER 

*  THAT  IS  CURRENTLY  BEING  INTERPRETED.   WHILE  WE  ARE  IN 

*  THIS  LOOP  OR  WHILE  WE  ARE  INTERPRETING  A  DIRECT  COMMAND 

03 


39 


«  (  SEE  NEXT 

SECTION) ,  "CURRNT 

"  SHOULD  Pt 

• 

START   LODI 

SP, STACK 

00BA 

CD0E00 

ST1     CALL 

CRLF 

00BD 

11A300 

LODI 

DE.OK 

00C0 

97 

SUB 

A 

00c  1 

CD3C06 

CALL 

PRTSTG 

00C4 

21CB00 

LODI 

HL.ST2+1 

00C7 

220108 

ST 

HL, CURRNT 

00CA 

210000 

ST2     LODI 

HL.0 

00CD 

220708 

ST 

HL.LOPVAR 

00D0 

220303 

ST 

HL.STKGOS 

00D3 

3E3E 

ST3     LODI 

A,  '  >' 

00D5 

CDD605 

CALL 

GETLN 

00D8 

D5 

PUSH 

DE 

00D9 

11371F 

9399          LODI 

DE, BUFFER 

00DC 

CD7700- 

CALL 

TSTNUM 

00DF 

EF 

IGNBLK 

00E0 

7C 

LOD 

A,H 

00E1 

B5 

IOR 

L 

00E2 

CI 

POP 

BC 

00E3 

CAF501 

JMP 

Z  .DIRECT 

00E6 

IB 

DEC 

DE 

00E7 

7C 

LOD 

A,H 

00E8 

12 

ST 

A,(  DE) 

00E9 

IB 

DEC 

DE 

00  EA 

7D 

LOD 

A,L 

00EB 

12 

ST 

A,(  DE) 

00EC 

C5D5 

PUSH 

BC,DE 

00EE 

79 

LOD 

A,C 

00EF 

93 

SUB 

E 

00F0 

F5 

PUSH 

AF 

00F.1 

CD1406 

CALL 

FNDLN 

00F4 

D5 

PUSH 

DE 

00F5 

C20801 

JMP 

HZ , ST4 

00F8 

D5 

PUSH 

DE 

* 

CD 3 00 6 

CALL 

FNDNXT 

00FC 

CI 

POP 

BC 

00FD 

2A1308 

LD 

HL , TXTUNF 

0100 

CDBD06 

CALL 

MVUP 

0103 

6069 

LOD 

HL.BC 

0105 

221308 

ST 

HL , TXTUNF 

0108 

CI 

ST4     POP 

BC 

0109 

2A1308 

LD 

HL , TXTUNF 

010C 

Fl 

POP 

AF 

010D 

E5 

PUSH 

KL 

010E 

FEGT3 

CMP  I 

3 

0110 

CA0000 

JMP 

Z, START 

0113 

85 

ADD 

L 

0114 

6F 

LOD 

L,A 

0115 

3E00 

LODI 

A,  3 

0117 

8C 

ADC 

H 

0118 

67 

LOD 

H,A 

0119 

11001F 

98(39          LODI 

DE.TXTEND 

011C 

E7 

COMP 

011D 

D2CF05 

JMP 

NC.QSORRY 

0120 

221303 

ST 

HL, TXTUNF 

0123 

Dl 

POP 

DE 

0124 

CDC606 

CALL 

MVDOWN 

)INT  TO  A  0. 

THIS  IS  AT  LOC.  0 

AND  JUMP  TO  HERE 

DE->STRING 

A-0 

PRINT  STRING  UNTIL  CR 

LITERAL  0 

CURRNT- >LINE  #  -  0 


PROMPT  ' > '  AND 
READ  A  LINE 
DE->END  OF  LINE 
DE-)BEGINNING  OF  LINE 
TEST  IF  IT  IS  A  NUMBER 

HL-VALUE  OF  THE  #  OR 
0  IF  NO  #  WAS  FOUND 
BC->END  OF  LINE 

BACKUP  DE  AND  SAVE 
VALUE  OF  LINE  #  THERE 


BC,DE->BEGIN,  END 


A-#  OF  BYTES  IN  LINE 
FIND  THIS  LINE  IN  SAVE 
AREA,  DE->SAVE  AREA 
NZ.-NOT  FOUND,  INSERT 
Z: FOUND,  DELETE  IT 
FIND  NEXT  LINE 
DE->NEXT  LINE 
BC->LINE  TO  BE  DELETED 
HL->UNFILLED  SAVE  AREA 
MOVE  UP  TO  DELETE 
TXTUNF- >UNFILLED  AREA 
UPDATE 

GET  READY  TO  INSERT 
BUT  FIRST  CHECK  IF 
THE  LENGTH  OF  NEW  LINE 
IS  3  ( LINE  #  AND  CR) 
THEN  DO  NOT  INSERT 
MUST  CLEAR  THE  STACK 
COMPUTE  NEW  TXTUNF 


KL->NEW  UNFILLED  AREA 
CHECK  TO  SEE  IF  THERE 
IS  ENOUGH  SPACE 
SOPRY,  NO  ROOM  FOP.  IT 
OK,  UPDATE  TXTUNF 
.;E->OLD  UNFILLED  AREA 
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0127  D1E1 
012  9  CDBD06 
012C  C3D300 


POP   DE.HL 
CALL  MVUP 
JMP   ST3 


DE->BEGIN,  HL->END 
MOVE  NEW  LINE  TO  SAVE 
AREA 


*  ***  TABLES  ***  DIRECT  «**  &  EXEC  «"»* 
• 

*  THIS  SECTION  OF  THE  CODE  TESTS  A  STRING  AGAINST  A  TABLE. 

*  WHEN  A  MATCH  IS  FOUND,  CONTROL  IS  TRANSFERED  TO  THE  SECTION 

*  OF  CODE  ACCORDING  TO  THE  TABLE. 

* 

*  AT  'EXEC,  DE  SHOULD  POINT  TO  THE  STRING  AND  HL  SHOULD  POINT 

*  TO  THE  TABLE- 1.   AT  'DIRECT',  DE  SHOULD  POINT  TO  THE  STRING, 

*  HL  WILL  BE  SET  UP  TO  POINT  TO  TAB1-1,  WHICH  IS  THE  TABLE  OF 

*  ALL  DIRECT  AND  STATEMENT  COMMANDS . 

• 

*  A  ' . '  IN  THE  STRING  WILL  TERMINATE  THE  TEST  AND  THE  PARTIAL 

*  MATCH  WILL  BE  CONSIDERED  AS  A  MATCH.   E.G.,  'P.',  'PR.', 

*  'PRI.',  'PRIN.',  OR  'PRINT'  WILL  ALL  MATCH  'PRINT'. 

* 

*  THE  TABLE  CONSISTS  OF  ANY  NUMBER  OF  ITEMS.   EACH  ITEM 

*  IS  A  STRING  OF  CHARACTERS  WITH  BIT  7  SET  TO  0  AND 

*  A  JUMP  ADDRESS  STORED  HI-LOW  WITH  BIT  7  OF  THE  HIGH 

*  BYTE  SET  TO  1. 

* 

*  END  OF  TABLE  IS  AN  ITEM  WITH  A  JUMP  ADDRESS  ONLY.   IF  THE 

*  STRING  DOES  NOT  MATCH  ANY  OF  THE  OTHER  ITEMS,  IT  WILL 

*  MATCH  THIS  NULL  ITEM  AS  DEFAULT. 

* 


012F 

TAB1 

EQU 

*          DIRECT  COMMANDS 

012F 

4C495354 

ITEM 

'LIST' .LIST 

0133 

8261 

0135 

52554E 

ITEM 

' RUN ' , RUN 

0138 

8233 

013A 

4E4557 

ITEM 

'NEW' .NEW 

013D 

8226 

013F 

TAB  2 

EQU 

*          DIRECT/STATEMENT 

013F 

4E455854 

ITEM 

'NEXT' .NEXT 

0143 

83  4-9 

0145 

4C4554 

ITEM 

'LET' ,LET 

0148 

8407 

014A 

4946 

ITEM 

"IF" ,IF 

014C 

839A 

014E 

474F544F 

ITEM 

'GOTO' .GOTO 

0152 

8252 

0154 

474F535542 

ITEM 

'GOSUB' ,GOSUB 

0159 

82B1 

015B 

52455455524E 

ITEM 

'RETURN' .RETURN 

0161 

82D1 

0163 

52454D 

ITEM 

'REM' .REM 

0166 

8396 

0168 

464F52 

ITEM 

'FOR' .FOR 

016B 

82EA 

016D 

494E505554 

ITEM 

' INPUT' , INPUT 

0172 

83B1 

0174 

5052494E54 

ITEM 

'PRINT' .PRINT 

0179 

8279 

017B 

53544F50 

ITEM 

'STOP' .STOP 

017F 

822F 
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0181 
0183 
018B 
0193 
019B 
01A1 
01A1 
01A4 
01A6 
01A9 
01AB 
eflAF 
01B1 
01B3 
01BB 
01C3 
01CB 
01D1 
01D1 
01D3 
01D5 
01D7 
01D7 
01DB 
01DD 
01DF 
01DF 
01E1 
01E3 
01E4 
01E6 
01E7 
01E9 
01EA 
01EC 
01EE 
01F0 
01F1 
01F3 


8401 
594F55204D4 

494E5345525 
4D4F5245204 
4D414E44532 

524E44 

8506 

414253 

8531 

534  9  5A4  5 

853D 

84EC 

594F55204D4 

494E5345525 

4D4F5245204 

4354434F4E5 

544F 
82FA 
8  5A4 

53544550 

8304 

8308 

3L3D 

8417 

23 

84  ID 

3E 

8423 

3D 

8432 

3C3D 

842A 

3C 

8438 

843E 


15920 
42020 
34F4D 
E 

TAB  4 


ITEM  ,DEFLT 

CHAR  'YOU  MAY  INSERT   MORE  COMMANDS. 


EQU 


FUNCTIONS 


01F5  212E01 


01F8 
01F8 
01F9 
01FA 
01FB 
01FC 
01FE 
0201 
0202 
0203 
0206 
0208 
0209 
&20A 
020D 
020E 
020F 
0212 


EF 

D5 

1A 

13 

FE2E 

CA1702 

23 

EE 

CR.FA01 

3E7F 

IB 

BE 

DA1E02 

23 

Dp 

D20D02 
23 


15920 
42020 
6554E 
3 

TAB  5 


TAB  6 


TAE8 


ITEM  ' RND' ,RND 

ITEM  'ABS' ,ABS 

ITEM  'SIZE' ,SIZS 

ITEM  ,XP40 

CHAR  'YOU  MAY  INSERT   MORE  FUNCTIONS' 


EQU   * 

ITEM  'TO' ,FR1 


'TO"  IN  "FOR' 


ITEM  ,QWHAT 

EQU   *  "STEP"  IN  "FOR' 

ITEM  'STEP' ,FR2 


ITEM  ,FR3 

EQU   « 


RELATION  OPERATORS 


ITEM  ' >- 
ITEM  '#' 
ITEM  '>' 
ITEM  '-' 
ITEM  '<- 
ITEM  '<' 


' ,XP11 

,XP12 

,XP13 

,XP15 

' ,XP14 

,XP16 


ITEM  ,XP17 
DIRECT  LODI  HL.TAB1-1 


EXEC 
EX0 

EX1 


EQU   * 

IGNBLX 

PUSH  DE 

LD 

INC 

CMP  I 

JMP 

INC 

CMP 

JMP 


A,(  DE) 
DE 


EX  2 


Z.EX3 

HL 

M 

Z.EX1 
LODI  A,X' 7F' 
DEC   DE 

M 

CEX5 

HL 

M 

NC , EX2 

HL 

06 


CMP 
JMP 
INC 

CMP 
JMP 
INC 


***  DIRECT  *** 

***  EXEC  *** 

IGNORE  LEADING  BLANKS 

SAVE  POINTER 

IF  FOUND  ' . '  IN  STRING 

BEFORE  ANY  MISMATCH 

WE  DECLARE  A  MATCH 

HL->TABLE 

IF  MATCH,  TEST  NEXT 

ELSE,  SEE  IF  BIT  7 

OF  TABLE  IS  SET,  WHICH 

IS  THE  JUMP  ADDR.  (HI) 

C:YES,  MATCHED 

NC:NO,  FIND  JUMP  ADDR. 


D'TM-'  TO  NEXT  TAB.  ITEM 
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0213 

Dl 

POP 

DE 

0214 

C3F801 

JMP 

EX0 

3217 

3E7F 

EX  3 

LODI 

A,X'7F' 

0219 

23 

EX  4 

INC 

HL 

021A 

BE 

CMP 

M 

02  IB 

D21902 

JMP 

NCEX4 

021E 

7E 

EX  5 

LCD 

A,M 

021F 

23 

INC 

HL 

0220 

6E 

LOD 

L,M 

0221 

ES7F 

AND  I 

X'7F' 

0223 

67 

LOD 

H,A 

0224 

Fl 

POP 

AF 

0225 

S3 

JMP 

'.  HL) 

RESTORE    STRING    POINTER 
TEST    AGAINST    NEXT    ITEM 
PARTIAL    MATCH,     FIND 
JUMP    ADDR. ,     WHI^H    IS 
FLAGGED    EY    3IT    7 

LOAD    HL    WITH    THE    JUMP 
ADDRESS    FP.CM    THE    TABLE 

MASK    OFF    BIT    7 

CLEAN    UP    THE    GABAGE 
AND    WE    GO    DC    IT 

* 

t**t*n«***ft»i**»t»**t**«t«lr**i<«K***llt#t»*»t*tt»t*rt*t«*»i!»«*1i 

* 

*  WHAT    FOLLOWS    IS    THE    CODE    TO    EXECUTE    DIRECT    AND    STATEMENT 
"  COMMANDS.       CONTROL    IS    TKANSFEP.ED    TO    THESE    POINTS    VIA    THE 

*  COMMAND    TABLE    LOOKUP    CODS    OF     'DIRECT'     AND     'EXEC'     IN    LAST 

*  SECTION.       AFTER    THE    COMMAND    IS    EXECUTED,     CONTROL    IS 

*  TRAN3FERED    TO    OTHER    SECTIONS    AS    FOLLOWS: 

* 

*  FOR     'LIST',     'NEW',    AND     'STOP':     GO    BACK    TO     'START' 

*  FOR    'RUN':     GO    EXECUTE    THE    FIRST    STORED    LINE    IF   ANY;     ELSE 

*  GO    BACK    TO     ' START' . 

*  FOP.     'GOTO'     AND     '  GOSUB  '  :    GO    EXECUTE    THE    TARGET    LINE. 

*  FOR     'RETURN'     AND     'NEXT':     GO    BACK    TO    SAVED    RETURN    LINE. 

*  FOR   ALL    OTHERS:     IF     ' CURRNT '     ->    0,     GO    TO     'START',     ELSE 

*  GO    EXECUTE    NEXT    COMMAND.       (THIS    IS    DONE    IK     'FINISH'.) 

* 

*  ***    NEW    ***    STOP    ***    RUN    ! &    FRIENDS;     *«*    U    GOTO    *** 

* 

*  'NEWfCRJ'     SETS     'TXTUNF'     TO    POINT    TO    'TXTBGN' 

*  'STOPtCRI'    GOES    BACK    TO     'START' 

* 

*  'RUNvCR)'     FINDS    THE    FIRST    STORED    LINE,     STORE    ITS    ADDRESS    (IN 

*  'CURRNT'.',    AND    START    EXECUTE    IT.       NOTE    THAT    ONLY    THOSE 

*  COMMANDS    IN    TAB2    ARE    LEGAL    FOR    STORED    PROGRAM. 

* 

*  THERE    ARE    3    MORE    ENTRIES    IN     'RUN': 

*  'RUNNXL'  FINDS    NEXT    LINE,     STORES    ITS    ADDR.    AND    EXECUTES    IT. 

*  'RUNTSL'  STORES    THE    ADDRESS    OF    THIS    LINE    AND    EXECUTES    IT. 

*  'RUNSML'  CONTINUES    THE    EXECUTION    ON    SAME    LINE. 
* 

*  'GOTO    EXPP.(CR)1     EVALUATES    THE    EXPRESSION,     FIND    THE    TARGET 

*  LINE,    AND    JUMP    TO     'RUNTSL'     TO    DO    IT. 
* 

0226    CDA005  NEW  CALL    ENDCHK  ***    NEW(CR)     *** 

02  2  9     21150  3  LODI    HL , TXTBGN 

022C    221303  ST         HL, TXTUNF 

022F    CDA005  STOP         CALL    ENDCHK  ***    STOP(CR)     *** 

02  3  2    C7  P.STAP.T 

* 

0233    CDA005  RUN  CALL    ENDCHK  ***    RUN(CR)     *** 

0236     111503  LODI    DE , TXTBGN    FIRST    SAVED    LINE 

ft 
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0239 

210000 

RUNNXL 

LOD 

023C 

CD1C06 

CAL 

023F 

DA0000 

JMP 

0242 

EB 

RUNTSL 

XCH 

0243 

220108 

ST 

0246 

EB 

XCH 

0247 

1313 

IMC 

0249  CD3207 
324C  213E01 
024F    C3F801 


0252 

DF 

0253 

D5 

0254 

CDA005 

0257 

CD1406 

025A 

C2A000 

02  5D 

Fl 

025E 

C34202 

C, START 


***    RUNNXL    *** 

FIND    WHATEVER    LINE    # 

C: PASSED    TXTUNF,    QUI: 


HL.DE  ***    RUNTSL    *** 

HL.CURRNT  SET     ' CURRNT ' - >LINE    # 

HL,DE 

DE,2  BUMP    PASS    LINE    # 


RUNSML    CALL    CHKIO  ***    RUNSML    *** 

LODI    HL.TAB2-1    FIND    COMMAND    IN    TAB2 
JMP  EXEC      AND    EXECUTE    IT 


GOTO         EX PR 

PUSH   DE 
CALL    ENDCHK 
CALL    FNDLN 
JMP      NZ.AHOW 
POP      AF 
JMP      RUNTSL 


***    GOTO    EXPR    "** 

SAVE    FOR    ERROR    ROUTINE 

MUST    FIND    A    CR 

FIND    THE    TARGET    LINE 

NO    SUCH    LINE    # 

CLEAR    THE    "PUSH    DE" 

GO    DO    IT 


ft******  +  **W**********Tfc****T»***W********t 


'*"***«******«********** 


***    LIST    ***    &    PRINT    *** 

LIST    HAS    TWO    FORKS: 

'LIST(CR)'     LISTS    ALL    SAVED    LINES 

'LIST    #(  CR) '     START    LIST    AT    THIS    LINE    # 

YOU    CAN    STOP    THE    LISTING    BY    CONTROL    C    KEY 

PRINT    COMMAND    IS     'PRINT     ....;'     OR     'PRINT     ....(CR)' 
WHERE     '....'     IS    A   LIST    OF    EXPP.ESIONS  ,     FORMATS,     BACK- 
ARROWS,    AND    STRINGS.        THESE    ITEMS    ARE    SEPERATED    BY    COMMAS. 

A    FORMAT    IS    A    POUND    SIGN    FOLLOWED    BY   A    NUMBER.        IT    CONTROLS 
THE    NUMBER    OF    SPACES    THE    VALUE    OF    A    EXPRESION    IS    GOING    TO 
BE    PRINTED.       IT    STAYS    EFFECTIVE    FOR    THE    PEST    OF    THE    PRINT 
COMMAND    UNLESS    CHANGED    BY   ANOTHER    FORMAT.        IF    NO    FORMAT    IS 
SPECIFIED,     6    POSITIONS    WILL    BE    USED. 


A    STRING    IS    QUOTED 
DOUBLE    QUOTES . 


CH   A    PAIR    OF    SINGLE    QUOTES    OR   A    PAIR    OF 


A    BACK -ARROW   MEANS    GENEPATE    A    (CR)    WITHOUT    (  LF ) 

A    (CRLF)     IS    GENERATED    AFTER    THE    ENTIRE    LIST    HAS    ESEN 
PRINTED    OR    IF    THE    LIST    IS    A    NULL    LIST.       HOWEVER    IF    THE    LIST 
ENDED    WITH   A    COMMA,    NO    (CRLF)     IS    GENERATED. 


0261 

CD'7700 

0254 

CDA00  5 

0267 

CD1406 

026A 

DA0000 

026D 

CDAA06 

0270 

CD3207 

0273 

CD1C06 

02  7  6 

C36A02 

0279 

0E06 

027B 

CF 

LIST 


LSI 


PRINT 


CALL    TSTNUM 
CALL    ENDCHK 
CALL    FNDLN 
JMP       C, START 
CALL    PRTLN 
CALL    CHKIO 
CALL    FNDLNP 
JMP       LSI 

LCDI    C,  6 
TSTC     ' ; ' ,PR2 

03 


TEST    IF    THERE    15    A    * 
IF    NO    #    WE    GET    A    0 
FIND    THIS    OH    NEXT    LINE 
C: PASSED    TXTUNF 
PRINT    THE    LINE 
STOP    IF    HIT    CONTROL-C 
FIND    NEXT    LINE 
AND    LOOP    BACK 

C    -    #    OF    SPACES 
IF    NULL    LIST    &     " ; " 
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027C 

3B 

027D 

06 

027E 

CD0E00 

0231 

C34902 

0284 

CF 

0285 

0D 

0286 

06 

02  8  7 

CD0E00 

028A 

C33902 

02  8D 

CF 

028S 

23 

028F 

05 

0290 

DF 

0291 

4D 

0292 

C39B02 

0295 

CD4  806 

0293 

C3A302 

029B 

CF 

029C 

2C 

029D 

06 

029S 

CD9105 

02A1 

C3OD02 

02A4 

CD0E00 

02A7 

F7 

02A8 

DF 

02A9 

C5 

02AA 

CD6E06 

02AD 

CI 

02AE 

C39B02 

PR2 


CALL    CRLF 
JMP       RUNSML 
TSTC    @CR,PR0 


CALL 

CRLF 

JMP 

RUNNXL 

PR0 

TSTC 
EXPR 

'#' rPRi 

LOD 

C,L 

JMP 

PR3 

PR1 

CALL 

QTSTG 

JMP 

PR8 

PR  3 

TSTC 

' , ' , PR6 

CALL 

FIN 

JMP 

PR0 

PR6 

CALL 

CRLF 

FINISH 

PR8 

EXPR 

PUSH 

BC 

CALL 

PRTNUM 

POF 

BC 

JMP 

PR3 

***************** 


ri****t*»»xi(*i 


GIVE    CR-LF   AND 
CONTINUE    SAME    LINE 
IF    NULL    LIST    (  CR) 


ALSO    GIVE    CR-LF    AND 
GO    TO    NEXT    LINE 
ELSE    IS    IT    FORMAT? 


YES,     EVALUATE    EXPR. 
AND    SAVE    IT    IN    C 
LOOK    FOR    MORE    TO    FRIN1 
OR    IS    IT    A    STRING? 
IF    NOT,    MUST    3E    EXPR. 
IF    ",",     GO    FIND    NEXT 


IN    THE    LIST. 
LIST    CONTINUES 
LIST    ENDS 

EVALUATE    THE    EXPR 

PRINT    THE    VALUE 

MORE    TO    PRINT? 


***    GOSUB    ***    &    RETURN    *** 

'GOSUB    EXPR;'     OR     'GOSUB    EXPR    (CR)'     IS    LIKE    THE     'GOTO' 
COMMAND,     EXCEPT    THAT    THE    CURRENT    TEXT    POINTER,     STACK    POINTER 
ETC.    ARE    SAVE    SO    THAT    EXECUTION    CAN   BE    CONTINUED    AFTER    THE 
SUBROUTINE     'RETURN'.        IN    ORDER    THAT     'GOSUB'     CAN    BE    NESTED 
(AND    EVEN    RECURSIVE),     THE    SAVE    AREA    MUST    EE    STACKED. 
THE    STACK    POINTER    IS    SAVED    IN     '  STKGOS  '  .     THE    OLD     'STKGOS'     IS 
SAVED    IN    THE    STACK.        IF    WE    ARE    IN    THE    MAIN    ROUTINE,     'STKGOS' 
IS    ZERO    (THIS    WAS    DONE    3Y    THE    "MAIN"    SECTION    OF    THE    CODE), 
BUT    WE    STILL    SAVE    IT    AS    A    FLAG    FOR    NO    FURTHER     'RETURN'S. 

'RETURN(CR)'     UNDOS    EVERYTHING    THAT     'GOSUB'     DID,    AND    THUS 
RETURN    THE    EXCUTIOH    TO    THE    COMMAND    AFTER    THE    MOST    RECENT 
'GOSUB'.        IF     ' STKGOS '     IS    ZERO,     IT    INDICATES    THAT    WE 
NEVER    HAD    A     'GOSUB'     AND    IS    THUS    AN    ERROR. 


02B1 

CDF106 

02B4 

DF 

02B5 

D5 

02B6 

CD1406 

02B9 

C2A000 

02EC 

2A0108 

02EF 

ES 

02C0 

2A0308 

02C3 

E5 

02C4 

210000 

02C7 

220708 

GOSUB      CALL    PUS HA 
EXPR 
PUSH  DE 
CALL    FNDLN 
JMP       NZ.AHOW 
LD         HL  ,  CUP.RNT 
PUSH    HL 

LD         HL, STKGOS 
PUSH    HL 
LOD I    HL 


•FOR' 


ST 


,0 
HL.LOPVAR 


SAVE    THE    CURRENT 

PARAMETERS 

AND    TEXT    POINTER 

FIND    THE    TARGET    LINE 

NOT    THERE.    SAY    "HOW?" 

FOUND    IT,     SAVE    OLD 

'CURRNT'     OLD     'STKGOS' 


AND    LOAD    NEW   ONES 
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02CA 

39 

ADD 

HL.SP 

02CB 

220308 

ST 

HL.STKGOS 

02CE 

C34202 

JMP 

RUNTSL 

02D1 

CDA005 

RETURN  CALL 

ENDCHK 

02D4 

2A0308 

LD 

HL,STKGOS 

02D7 

7C 

LOD 

A,H 

02D8 

B5 

IOR 

L 

02D9 

CAA405 

JMP 

Z.OWHAT 

02DC 

F9 

LOD 

SP,HL 

02DD 

El 

POP 

HL 

02DE 

220308 

ST 

HL.STKGOS 

02E1 

El 

POP 

HL 

02E2 

220108 

ST 

HL , CURRNT 

02E5 

Dl 

POP 

DE 

02E6 

CDD506 

CALL 

POPA 

02E9 

F7 

FINISH 

THEN  RUN  THAT  LINE 
THERE  MUST  BE  A  CR 
OLD  STACK  POINTER 
0  MEANS  NOT  EXIST 

SO.  WE  SAY:  "WHAT?" 
ELSE,  RESTORE  IT 

AND  THE  OLD  'STKGOS' 

AND  THE  OLD  'CURRNT' 
OLD  TEXT  POINTER 
OLD  "FOR"  PARAMETERS 
AND  WE  ARE  BACK  HOME 


************ 


I*********************************************** 


*  *"*  FOR  "**  &  NEXT  *** 

* 

*  'FOR'  HAS  TWO  FORMS: 

*  'FOR  VAR-SXP1  TO  EXP2  STEP  EXP1'  AND  'FOR  VAR-EXP1  TO  EXP2 ' 

*  THE  SECOND  FORM  MEANS  THE  SAME  THING  AS  THE  FIRST  FORM  WITH 

*  EXP1-1.   (I.E.,  WITH  A  STEP  OF  +1.) 

*  TBI  WILL  FIND  THE  VARIAELE  VAR .  AND  SET  ITS  VALUE  TO  THE 

*  CURRENT  VALUE  OF  EXP1 .   IT  ALSO  EVALUATES  EXPR2  AND  EXP1 

*  AND  SAVE  ALL  THESE  TOGETHER  WITH  THE  TEXT  POINTER  ETC.  IN 

*  THE  'FOR'  SAVE  AREA,  WHICH  CONSISTS  OF  'LOPVAR',  'LOP  INC, 

*  'LOPLMT',  'LOPLN',  AND  'LOPPT'.   IF  THERE  IS  ALREADY  SOME- 

*  THING  IN  THE  SAVE  AREA  (THIS  IS  INDICATED  BY  A  NON-ZERO 

*  'LOPVAR'),  THEN  THE  OLD  SAVE  AREA  IS  SAVED  IN  THE  STACK 

*  BEFORE  THE  NEW  ONE  OVERWRITES  IT. 

*  TBI  WILL  THEN  DIG  IN  THE  STACK  AND  FIND  OUT  IF  THIS  SAME 

*  VARIABLE  WAS  USED  IN  ANOTHER  CURRENTLY  ACTIVE  'FOR'  LOOP. 

*  IF  THAT  IS  THE  CASE,  THEN  THE  OLD  'FOR'  LOOP  IS  DEACTIVATED. 

*  (PURGED  FROM  THE  STACK..) 

* 

*  "NEXT  VAR'  SERVES  AS  THE  LOGICAL  (NOT  NECESSARILLY  PHYSICAL) 

*  END  OF  THE  'FOR'  LOOP.   THE  CONTROL  VARIABLE  VAR.  IS  CHECKED 

*  WITH  THE  'LOPVAR' .   IF  THEY  ARE  NOT  THE  SAME,  TBI  DIGS  IN 

*  THE  STACK  TO  FIND  THE  RIGHT  ONE  AND  PURGES  ALL  THOSE  THAT 

*  DID  NOT  MATCH.   EITHER  WAY,  TBI  THEN  ADDS  THE  'STEP'  TO 

*  THAT  VARIABLE  AND  CHECK  THE  RESULT  WITH  THE  LIMIT.   IF  IT 

*  IS  WITHIN  THE  LIMIT,  CONTROL  LOOPS  BACK  TO  THE  COMMAND 

*  FOLLOWING  THE  'FOR'.   IF  OUTSIDE  THE  LIMIT,  THE  SAVE  ARER 

*  IS  PURGED  AND  EXECUTION  CONTINUES. 


02  EA 

CDF106 

02ED 

CD7E05 

02F0 

2B 

02F1 

220708 

02F4 

21D001 

02F7 

C3F801 

02FA 

DF 

02FB 

220B08 

02FE 

21D601 

0301 

C3F801 

0304 

DF 

0305 

C30B03 

FOR 


FR1 


FR2 


CALL 

PUSHA 

CALL 

SETVAL 

DEC 

HL 

ST 

HL, LOPVAR 

LODI 

HL , TAB  5-1 

JMP 

EXEC 

EXPR 

ST 

HL, LOPLMT 

LODI 

HL.TAB6-1 

JMP 

EXEC 

EXPR 

JMP 

FR4 

SAVE  THE  OLD  SAVE  AREA 

SET  THE  CONTROL  VAR. 

KL  IS  ITS  ADDRESS 

SAVE  THAT 

USE  'EXEC  TO  LOOK 

FOR  THE  WORD  'TO' 

EVALUATE  THE  LIMIT 

SAVE  THAT 

USE  'EXEC  TO  LOOK 

FOR  THE  WORD  'STEP' 

FOUND  IT,  GET  STEP 
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0208 

210100 

FR3     LODI 

HL,1 

030B 

220908 

FR4     ST 

HL.LOPINC 

030E 

2A0108 

FR5     LD 

HL,CUP.RNT 

4311 

2  20D08 

ST 

HL.LOPLN 

0314 

E3 

XCH 

HL.DE 

0315 

220F08 

ST 

HL.LOPPT 

0313 

010A00 

LODI 

BC.10 

031B 

2A0708 

LD 

HL, LOPVAR 

031E 

EB 

XCH 

HL,DE 

031F 

60 

LOD 

H,B 

0320 

68 

LOD 

L,B 

0321 

39 

ADD 

HL,SP 

0322 

3E 

SKIP 

0323 

09 

FR7     ADD 

Haj  ,  BC 

0324 

7E 

LOD 

A.M 

0325 

23 

INC 

HL 

0326 

BS 

IOR 

M 

03  2  7 

CA4403 

JMP 

2.FR8 

032A 

7E 

LOD 

A,M 

032B 

2B 

DEC 

HL 

032C 

BA 

CMP 

D 

032D 

C22303 

JMP 

NZ,FR7 

0330 

7E 

LOD 

A,M 

03  31 

BB 

CMP 

E 

0332 

C22303 

JMP 

NZ,FR7 

0335 

EB 

XCH 

HL,DE 

0336 

210000 

LODI 

HL,0 

0339 

39 

ADD 

HL,SP 

03  3A 

444D 

LOD 

BC  i  HL 

033C 

210A#0 

LODI 

HL  ,  10 

033F 

19 

ADD 

HL,DE 

0340 

CDC606 

CALL 

MVDOWN 

0343 

F9 

LOD 

SP,HL 

03  4  4 

2A0F08 

FR8     LD 

HL.LOPPT 

0347 

EB 

XCH 

HL.DE 

0343 

* 

F7 

FINISH 

0349 

FF 

NEXT    TSTV 

034A 

DAA405 

JMP 

C  ,  QWEAT 

034D 

2  20508 

ST 

HL ,  VARNXT 

03  50 

D5 

NX0     PUSH 

DE 

0351 

EB 

XCH 

HL.DE 

0352 

2A0703 

LD 

HL, LOPVAR 

0355 

1C 

LOD 

A,H 

0356 

B5 

IOR 

L 

0357 

CAA505 

JMP 

2.AWHAT 

03  5A 

E7 

COMP 

035B 

CA6803 

JMP 

2.NX3 

035E 

Dl 

POP 

DE 

035F 

CDD506 

CALL 

POPA 

0362 

2A0508 

LD 

HL , VARNXT 

0365 

C3  5003 

JMP 

NX0 

0363 

5E 

NX3     LOD 

E,M 

0369 

23 

INC 

HL 

036A 

56 

LOD 

D,M 

036B 

2A0908 

LD 

HL.LOPINC 

036E 

S5 

PUSH 

HL  . 

036F 

19 

ADD 

HL.DE 

0370 

EB 

XCH 

HL.DE 

0371 

2AJ&708 

LD 

KL.LOPVAR 

NOT  FOUND,  SET  TO  1 

SAVE  THAT  TOO 

SAVE  CURRENT  LINE  # 

AND  TEXT  POINTER 

DIG  INTO  STACK  TO 
TIND  'LOPVAR' 


HL-0  NOW 

HERE  IS  THE  STACK 

EACH  LEVEL  IS  10  DEEP 
GST  THAT  OLD  'LOPVAR' 


0  SAYS  NO  MORE  IN  IT 

SAME  AS  THIS  ONE? 
THE  OTHER  HALF? 

YES,  FOUND  ONE 
TRY  TO  MOVE  SP 


AND  PURGE  10  WORDS 

IN  THE  STACK 

JOB  DONE,  RESTORE  DE 

AND  CONTINUE 

GET  ADDRESS  OF  VAR. 
NO  VARIABLE,  "WHAT?" 
YES,  SAVE  IT 
SAVE  TEXT  POINTER 

GET  VAR.  IN  'FOR' 

0  SAYS  NEVER  HAD  ONE 
SO  WE  ASK:  "WHAT?" 
ELSE  WE  CHECK  THEM 
OK,  THEY  AGREE 
NO,  LET'S  SEE 
PURGE  CURRENT  LOOP 
AND  POP  ONE  LEVEL 
GO  CHECK  AGAIN 
COME  HERE  WHEN  AGREED 

DE-VALUE  OF  VAR. 


ADD  ONE  STEP 
PUT  IT  BACK 
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03  7  4 

73 

0375 

23 

0376 

72 

0377 

2A0B08 

037A 

n 

037B 

B7 

037C 

F23003 

037F 

EB 

0380 

CD7605 

0383 

Dl 

0384 

DAS  2 03 

#0337 

2A0D08) 

038A 

220108 

038D 

2A0F08 

0390 

EB 

03  91 

F7 

0392 

CDD506 

0395 

F7 

NX1 


NX2 


LOD 

M,E 

■ 

INC 

HL 

LOD 

M,D 

LD 

HL.LOPLMT 

HL->LIMIT 

POP 

AF 

OLD    HL 

IOH 

A 

JMP 

NS.NX1 

STEP    >    0 

XCH 

HL,DE 

STEP    <    0 

CALL 

CKHLDE 

COMPARE    WITH    LIMIT 

POP 

DE 

RESTORE    TEXT    POINTER 

JMP 

C.NX2 

OUTSIDE    LIMIT 

LD 

HL.LOPLN 

WITHIN    LIMIT,     GO 

ST 

HL.CURRNT 

BACK    TO    THE    SAVED 

LD 

HL.LOPPT 

'CURRNT'    AND    TEXT 

XCH 

HL.DE 

POINTER 

FINISH 

CALL 

POPA 

PURGE    THIS    LOOP 

FINISH 

*  ***    REM    ***    IF    ***    INPUT    »**    6    LET    (  &    DEFLT)     *** 

* 

*  'REM'    CAN    BE    FOLLOWED    BY   ANYTHING    AND    IS    IGNORED    3Y    TBI. 

*  TBI    TREATS    IT    LIKE   AN    'IF'    WITH   A    FALSE    CONDITION. 

ft 

*  'IF'     IS    FOLLOWED    BY   AN    EXPR.    AS    A   CONDITION   AND    ONE    OR   MORE 

*  COMMANDS    (INCLUDING    OUTHER     'IF'S)     SEPERATED    BY    SEMI -COLONS. 

*  NOTE    THAT    THE   WORD     'THEN'     IS    NOT    USED.       TBI    EVALUATES    THE 

*  EXPR.     IF    IT    IS    NON-ZERO,     EXECUTION    CONTINUES.        IF    THE 

*  EXPR.     IS    2ERO,     THE    COMMANDS    THAT    FOLLOWS    ARE    IGNORED    AND 

*  EXECUTION    CONTINUES    AT    THE    NEXT    LINE. 
* 

*  'INPUT'     COMMAND    IS    LIKE    THE     'PRINT'     COMMAND,    AND    IS    FOLLOWED 

*  BY   A    LIST    OF    ITEMS.        IF    THE    ITEM    IS    A    STRING    IN    SINGLE    CR 

*  DOUBLE    QUOTES,    OR    IS    A    BACK-ARROW,     IT    HAS    THE    SAMS    EFFECT    AS 

*  IN    'PRINT'.        IF    AN    ITEM    IS    A    VARIABLE,     THIS    VARIABLE    NAME    IS 

*  PRINTED    OUT    FOLLOWED    BY    A   COLON.       THEN    TBI    WAITS    FOR    AN 

*  EXPR.     TO    BE    TYPED    IN.       THS    VARIABLE    IS    THEN    SET    TO    THE 

*  VALUE    OF    THIS    EXPR.        IF    TH£    VARIABLE    IS    PROCEDED    BY   A    STRING 

*  (AGAIN    IN    SINGLE    OR    DOUBLE    QUOTES),     THE    STRING    WILL    BE 

*  PRINTED    FOLLOWED    EY   A   COLON.        TBI    THEN   WAITS    FOR    INPUT    EXPR. 

*  AND    SET    THE    VARIABLE    TO    THE    VALUE    OF    THE    EXPR. 

* 

*  IF    THE    INPUT    EXPR.     IS    INVALID,     TBI    WILL    PRINT    "WHAT?", 

*  "HOW?"    OR    "SORRY"    AND    REPRINT    THE    PROMPT    AND    REDO    THE    INPUT. 

*  THE    EXECUTION   WILL    NOT    TERMINATE    UNLESS    YOU    TYPE    CONTROL-C. 

*  THIS    IS    HANDLED    IN    'INPERR1. 

* 

*  'LET'     IS    FOLLOWED    3Y   A    LIST    OF    ITEMS    SEPERATED    BY    COMMAS. 

*  EACH    ITEM    CONSISTS    OF    A    VARIABLE,    /.N    EQUAL    SIGN,    AND    AN    EXPR. 

*  TBI    EVALUATES    THE    EXPR.    AND    SET    THE    VARIBLE    TO    THAT    VALUE. 

*  TBI    WILL    ALSO    HANDLE     'LET'     COMMAND    WITHOUT    THE    WORD     'LET'. 

*  THIS    IS    DONE    BY    'DEFLT'. 


03  9  6    210000 
0399    3E 

039A    DF 
039B    7C 


REM 


IF 


LCDI    HL,0 
SKIP 

EXPR 
LOD      A,H 


***    REM    **» 

THIS    IS    LIKE    ' IF    0' 

IS    THE    EXPR .-0? 
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039C 

35 

039D 

C24902 

B^hB 

CD3206 

03A3 

D24202 

03A6 

C7 

03A7 

2A0508 

03AA 

F9 

03AB 

El 

03AC 

220108 

03AF 

Dl 

0330 

* 

Dl 

03B1 

03B1 

D5 

03B2 

CD4  806 

0335 

C3BF03 

03B8 

FF 

03B9 

DAF903 

03BC 

C3CF03 

033F 

D5 

03C0 

FF 

03C1 

DAA405 

03C4 

1A 

03C5 

4F 

03C6 

97 

03C7 

12 

03C8 

Dl 

03C9 

CD3C06 

03CC 

79 

03CD 

IB 

03CE 

12 

03CF 

D5 

03D0 

EB 

03D1 

2A0108 

03D4 

E5 

03D5 

21B103 

03D8 

220108 

03DB 

210000 

03DB 

39 

03DF 

220508 

03E2 

D5 

03E3 

3E3A 

03E5 

CDD605 

03E8 

11371F 

03EB 

DF 

03EC 

0.00000 

03EF 

Dl 

03F0 

EB 

03F1 

73 

03F2 

23 

03F3 

72 

03F4 

El 

03F5 

220108 

03F3 

Dl 

03F9 

Fl 

03  FA 

CF 

03FB 

2C 

03FC 

03 

02FD 

C3B103 

g@@a 


IOR   L 

JMP   N2.RUNSML  NO,  CONTINUE 

CALL  FNDSKP  YES,  SKIP  REST  OF  LINE 

JMP   NC.RUNTSL  AND  RUN  THE  NEXT  LINE 

RSTART  IF  NO  NEXT,  RE-START 


"**  INPERR  *«* 
RESTORE  OLD  SP 
AND  OLD  'CURRNT' 

AND  OLD  TEXT  POINTER 
REDO  INPUT 

**«  input  *"* 

SAVE  IN  CASE  OF  ERROR 

IS  NEXT  ITEM  A  STRING? 

NC 

YES .  BUT  FOLLOWED  BY  A 

VARIABLE?    NO. 

YES.   INPUT  VARIABLE 

SAVE  FOR  'PRTSTG' 

MUST  BE  VARIABLE  NOW 

"WHAT?"  IT  IS  NOT? 

GET  READY  FOR  'PRTSTG' 


PRINT  STRING  AS  PROMPT 
RESTORE  TEXT 


SAVE  IN  CASE  OF  ERROR 

ALSO  SAVE  'CURRNT' 

A  NEGATIVE  NUMBER 
AS  A  FLAG 
SAVE  SP  TOO 


OLD  HL 

PRINT  THIS  TOO 

AND  GET  A  LINE 

POINTS  TO  BUFFER 

EVALUATE  INPUT 

CAN  BE  'CALL  ENDCHK ' 

OK,  GET  OLD  HL 

SAVE  VALUE  IN  VAR. 


GET  OLD  'CURRNT' 

AND  OLD  TEXT  POINTER 
PURGE  JUNK  IN  STACK 
IS  NEXT  CH.  ' , ' ? 


INPERR 

LD 

HL.STKINP 

LOD 

SP.HL 

POP  . 

HL 

ST 

HL, CURRNT 

POP 

DE 

POP 

DE 

INPUT 

EQU 

* 

IP1 

PUSH 

DE 

CALL 

QTSTG 

JMP 

IP2 

TSTV 

JMP 

C.IP4 

JMP 

IP3 

IP2 

PUSH 
TSTV 

DE 

JMP 

CQWHAT 

LD 

A,( DE) 

LOD 

C,A 

SUB 

A 

ST 

A,(  DE) 

POP 

DE 

CALL 

PRTSTG 

LOD 

A,C 

DEC 

DE 

ST 

A,( DE) 

IP3 

PUSH 

DE 

XCH 

KL,DE 

LD 

HL, CURRNT 

PUSH 

HL 

LOD  I 

HL.IPl 

ST 

HL,  CURRNT 

LOD  I 

HL,0 

ADD 

HL,SP 

ST 

HL,STKINP 

PUSH 

DE 

LODI 

A,  '  :  ' 

CALL 

GETLN 

LODI 

DE, BUFFER 

EX  PR 

NOP 

3 

POP 

DE 

XCH 

HI,  ,DE 

LOD 

M,E 

INC 

HL 

LOD 

M,D 

POP 

HL 

ST 

HL, CURRNT 

POP 

DE 

IP4 

POP 

AF 

- 

TSTC 

'  ,  '  ,IP5 

JMP 

IP1 

13 

YES,  MORE  ITEMS. 


49 


0400   P7 


IP5 


FINISH 


0401  1A 

0402  FE0D 
0404    CA1004 

0407    CD7E05 
04 0A   CF 
040B    2C 
040C    03 
040D    C30704 
0410    F7 


DEFLT 


LD         A,  IDE) 
CMPI    @CR 
JMP      Z.LT1 


LET  CALL    S.STVAL 

TSTC    ' , ' ,LT1 


LT1 


JMP      LET 

FINISH 


***    DEFLT    *** 
EMPTY    LINE    IS    OK 
ELSE    IT    IS     'LET' 

***    LET    *** 

SET    VALUE    TO    VAR. 


ITEM   BY    ITEM 
UNTIL    FINISH 


*************ff****************************W****TVftW*********WA* 


***    EXPR    *** 

'EXPR'    EVALUATES    ARITHMETICAL   OR   LOG 
<EXPR>: :-<EXPR2> 

<EXPR2XREL.OP.  ><EXPR2> 
WHERE    <REL.OP.>    IS    ONE   OF    THE    OPERAT 
RESULT    OF    THESE   OPERATIONS    IS    1    IF    T 
<EXPR2>:  :-(  +    OR    -XEXPR3X+    OR    -<EXP 
WHERE    ( )    ARE    OPTIONAL    AND    (....)    ARE 
<EXPR3>:  : -<EXPR4>(  <*    OR    /><EXPR4>)(. 
<EXPR4>: :-<VARIABLE> 
<FUNCTION> 
( <EXPR>) 
<EXPR>    IS    RECURSIVE    SO    THAT   VARIAELE 
AS    INDEX,    FUNCTIONS    CAN    HAVE   AN    <EXP 
<EXPR4>    CAN   BE   AN    <EXPR>    IN    PARANTHE 


ICAL    EXPRESSIONS, 


ORS  IN  TAB 8  AND  THE 
RUE  AND  0  IF  FALSE. 
R3>)(  .  .  .  . ) 

OPTIONAL    REPEATS . 

.  .  ) 


S'    CAN   HAVE   AN    <EXPR> 
R>    AS    ARGUMENTS,    AND 
SE. 


0411 

21DE01 

0414 

C3F801 

0417 

CD4004 

04  1A 

D8 

04  IB 

6F 

041C 

C9 

04  ID 

CD4  004 

04  20 

C8 

04  21 

6F 

04  2  2 

C9 

04  2  3 

CD4004 

04  2  6 

C8 

04  2  7 

D8 

0428 

6F 

04  2  9 

C9 

04  2A 

CD4004 

042D 

6F 

04  2  E 

C3 

042F 

D8 

0430 

6C 

0431 

C9 

04  3  2 

CD4004 

04  3  5 

C0 

0436 

6F 

0437 

C9 

04  3  8 

CD4004 

EXPR 


EXPR1 


XP11 


XP12 


XP13 


XP14 


XP15 


XP16 


CALL 

EXPR2 

THIS    IS    AT    LOC     18 

PUSH 

HL 

SAVE    <EXPR2>    VALUE 

LODI 

HL,TAE8- 

1    LOOKUP    REL.OP. 

JMP 

EXEC 

GO    DO    IT 

CALL 

XP18 

REL.OP. ">-" 

RET 

C 

NO,     RETURN   HL-0 

LCD 

L,A 

YES,    RETURN   HL-1 

RET 

U 

CALL 

XP18 

REL.OP. "#" 

RET 

Z 

FALSE,     RETURN   HL-0 

LOD 

L,A 

TRUE,     RETURN    HL-1 

RET 

U 

CALL 

XP13 

REL . OP . " > " 

RET 

Z 

FALSE 

RET 

C 

ALSO    FALSE,    HL-0 

LOD 

L,A 

TRUE,    HL-1 

RET 

U 

CALL 

XP18 

REL.OP. "<-" 

LOD 

L,A 

SET    HL-1 

RET 

Z 

REL.     TRUE,    RETURN 

RET 

c 

LOD 

L,H 

ELSE    SET   HL-0 

RET 

U 

CALL 

XP18 

REL.OP. "-" 

RET 

NZ 

FALSE,     RETRUN    HL-0 

LOD 

L,A 

ELSE    SET    HL-1 

RET 

U 

CALL 

XP18 

H3L.0P, "<" 

14 
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04  3B 

D0 

04  3C 

6F 

04  3D 

C9 

04  3  E 

El 

043F 

C9 

0440 

79 

0441 

E1C1 

04  4  3 

E5C5 

0445 

4F 

04  4  6 

CD5504 

04  4  9 

EB 

04  4  A 

E3 

044B 

CD7605 

044E 

Dl 

044F 

210000 

0452 

3E01 

04  54 

C9 

0455 

CF 

0456 

2D 

04  57 

06 

0458 

210000 

04  5B 

C37F04 

045E 

CF 

04  5F 

2B 

0460 

00 

04  61 

CD8904 

0464 

CF 

04  6  5 

2B 

04  6  6 

15 

04  6  7 

E5 

04  6  8 

CD8904 

04  6B 

EB 

046C 

E3 

04  6D 

7C 

046E 

AA 

046F 

7A 

0470 

19 

04  71 

Dl 

0472 

FA6  4  04 

04  7  5 

AC 

04  7  6 

F26404 

04  7  9 

C3  9F00 

04  7C 

CF 

047D 

2D 

047E 

83 

047F 

E5 

0480 

CD8904 

0483 

CD6A05 

0486 

* 

C36B04 

0489 

CDE604 

04  8C 

CF 

04  8D 

2A 

048E 

2C 

048F 

E5 

0490 

CDES04 

04  9  3 

3600 

0495 

CD6705 

04  9  8 

EB 

FALSE,  RETURN  HL-0 
ELSE  SET  HL-1 

NOT    REL.OP. 

RETURN   HL-<EXPR2> 

SUBROUTINE    FOR   ALL 

REL.OP. 'S 

REVERSE  TOP  OF  STACK 

GET  2ND  <EX?R2> 
VALUE  IN  DE  NOW 
1ST  <EXPR2>  IN  HL 
COMPARE  1ST  WITH  2ND 
RESTORE  TEXT  POINTER 
SET  HL-0,  A-l 


EXFR2   TSTC  ,-,,XF21   NAGATIVE  SIGN? 


RET 

NC 

LOD 

L,A 

RET 

U 

XP17 

POP 

HL 

RET 

U 

XP18 

LOD 

A,C 

POP 

HL ,  BC 

PUSH 

HL,BC 

LOD 

C,A 

CALL 

EXPR2 

XCH 

HL.DE 

XCH 

HL,( SP) 

CALL 

CKHLDE 

POP 

DE 

LODI 

HL,0 

LODI 

A,l 

RET 

U 

XP21 


XP22 
XP23 


XP24 


LODI  HL,0 
JMP  XP26 
TSTC  ' +' ,XP22 


CALL  EXPR3 
TSTC  ' +' ,XP25 


PUSH  HL 
CALL  EXPR3 


XP25 

XP26 


EXPR3 
XP31 


XCH 
XCH 
LOD 
XOR 
LOD 
ADD 
POP 
JMP 
XOR 
JMP 
JMP 
TSTC 


HL,DE 

HL,( SP) 

A,H 

D 

A,D 

HL,DE 

DE 

S.XP23 

H 

NS.XP23 

QHOW 

'-' ,XP42 


PUSH  HL 
CALL  EXPR3 
CALL  CHGSGN 
JMP   XP24 

CALL  EXPR4 
TSTC  '* ' ,XP34 


PUSH  HL 
CALL  EXPR4 
LODI  B,0 
CALL  CHKSGN 
XCH   HL,DE 


YES,  FAKE  '0-' 
TREAT  LIKE  SUBTRACT 
POSITIVE  SIGN?  IGNORE 


1ST  <EXPR3> 
ADD? 


YES,  SAVE  VALUE 
GET  2ND  <EXPR3> 
2ND  IN  DE 
1ST  IN  HL 
COMPARE  SIGN 


RESTORE  TEXT  POINTER 

1ST  2ND  SIGN  DIFFER 

1ST  2ND  SIGN  EQUAL 

SO  IS  RESULT 

ELSE  WE  HAVE  OVERFLOW 

SUBTRACT? 


YES,  SAVE  1ST  <EXPR3> 

GET  2ND  'vEXPR3> 

NEGATE 

AND  ADD  THEM 

GET  1ST  <EXPR4> 
MULTIPLY? 


YES,  SAVE  1ST 

AND  GET  2ND  <EXPR4> 

CLEAR  B  FOR  SIGN 

CHECK  SIGN 

2ND  IN  DE  NOW 
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04  9  9 

E3 

XCH 

HL,(  SP) 

1ST  IN  HL 

04  9  A 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  1ST 

04  9D 

7C 

LOD 

A,H 

IS  HL  >    255  ? 

049E 

B7 

IOR 

A 

049F 

CAA804 

JMP 

Z.XP32 

NO 

04A2 

7A 

LOD 

A,D 

YES,  HOW  ABOUT  DE 

04A3 

B2 

IOR 

D 

04A4 

EB 

XCH 

HL.DE 

PUT  SMALLER  IN  HL 

04A5 

C2A000 

JMP 

NZ.AHOW 

ALSO  > ,  WILL  OVERFLOW 

04A8 

7D 

XP32 

LOD 

A,L 

THIS  IS  DUMB 

04A9 

210000 

LOD  I 

KL.0 

CLEAR  RESULT 

04AC 

B7 

IOR 

A 

ADD  AND  COUNT 

04AD 

CAD804 

JMP 

Z.XP35 

04  B0 

19 

XP33 

ADD 

HL.DE 

04B1 

DAA000 

JMP 

CAHOW 

OVERFLOW 

04B4 

3D 

DEC 

A 

04B5 

C2B004 

JMP 

NZ.XP3  3 

04B8 

C3D804 

JMP 

XP35 

FINISHED 

04BB 

CF 

XP34 

TSTC 

V  ,XP42 

DIVIDE? 

04  BC 

2F 

04BD 

44 

04BE 

E5 

PUSH 

HL 

YES,  SAVE  1ST  <EXPR4> 

04BF 

CDE604 

CALL 

EXPR4 

AND  GET  2ND  ONE 

04C2 

0600 

LODI 

B,0 

CLEAR  B  FOR  SIGN 

04C4 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  2ND 

04C7 

EB 

XCH 

HL.DE 

PUT  2ND  IN  DE 

04C8 

E3 

XCH 

HL,(  SP) 

GET  1ST  IN  HL 

04C9 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  1ST 

04  CC 

7A 

LOD 

A,D 

DIVIDE  BY  0? 

04CD 

B3 

IOR 

E 

04CE 

CAA000 

JMP 

Z.AHOW 

SAY  "HOW?" 

04D1 

C5 

PUSH 

BC 

ELSE  SAVE  SIGN 

04D2 

CD4A05 

CALL 

DIVIDE 

USE  SUBROUTINE 

04D5 

6069 

LOD 

HL.BC 

RESULT  IN  HL  NOW 

04D7 

CI 

POP 

BC 

GET  SIGN  BACK 

04D8 

Dl 

XP35 

POP 

DE 

AND  TEXT  POINTER 

04D9 

7C 

LOD 

A,H 

HL  MUST  BE  + 

04  DA 

B7 

IOR 

A 

04DB 

FA9F00 

JMP 

S  ,  QHOW 

ELSE  IT  IS  OVERFLOW 

04DE 

78 

LOD 

A,B 

04DF 

B7 

IOR 

A 

04  E0 

FC6A05 

CALL 

S.CHGSGN 

CHANGE  SIGN  IF  NEEDED 

04E3 

* 

C38C04 

JMP 

XP31 

LOOK  FOR  MORE  TERMS 

04E6 

21A001 

EXPR4 

LODI 

HL.TAB4-1 

FIND  FUNCTION  IN  TAB4 

04E9 

C3F801 

JMP 

EXEC 

AND  GO  DO  IT 

04  EC 

FF 

XP40 

TSTV 

NO,  NOT  A  FUNCTION 

04  ED 

DAF504 

JMP 

C.XP41 

NOR  A  VARIABLE 

04  F0 

7E 

LOD 

A,M 

VARIABLE 

04F1 

23 

INC 

HL 

04  F2 

66 

LOD 

H,M 

7ALUE  IN  HL 

04F3 

6F 

LOD 

L,A 

04F4 

C9 

RET 

U 

04F5 

CD7700 

XP41 

CALL 

TSTNUM 

OR  IS  IT  A  NUMBER 

04F8 

78 

LOD 

A,B 

#  OF  DIGIT 

04F9 

B7 

IOR 

A 

04  FA 

C0 

RET 

NZ 

OK 

04FB 

CF 

PARN 

TSTC 

'(  '  ,XP43 

NO  DICIT,  MUST  BE 

04  PC 

28 

04  FD 

05 

16 
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04?E 

DT 

04  FF 

cr 

0500 

29 

Z501 

01 

0502 

C9 

0503 

* 

C3A405 

0506 

CDFB04 

0509 

7C 

050A 

37 

05,33 

FA9F00 

050E 

E5 

050? 

CA9F00 

0512 

D5E5 

0514 

2AI108 

0517 

11FF07 

051A 

E7 

051E 

DA2105 

0513 

210000 

0521 

5E 

0522 

23 

0523 

56 

0524 

221108 

0527 

El 

0528 

E3 

0529 

C5 

052A 

CD4A05 

052D 

C1D1 

052F 

23 

0530 

C9 

0531 

CDFB04 

0534 

CD6705 

0537 

7C 

0538 

34 

0539 

FA9F00 

053C 

C9 

053D 

2A1308 

0540 

D5 

0541 

EB 

0542 

21001F 

0545 

CD6005 

0543 

Dl 

0549 

C9 

EXPR 

"( EXPR)" 

TSTC 

•  )  '  ,XP43 

XP42 

RET 

U 

XP4  3 

JMP 

QWHAT 

ELSE  SAY:  "WHAT?" 

RND 

CALL 

PARN 

***  RND(  EXPR)  "" 

LOD 

A,H 

EXPR  MUST  BE  ♦ 

IOP. 

A 

JMP 

S , QHOW 

IOR 

L 

AND  NON-ZERO 

JMP 

Z ,QHOW 

FUSH 

DE,HL 

SAVE  30TH 

LD 

HL , RANPNT 

GET  MEMORY  AS  RANDOM 

LOD  I 

DE.LSTROM 

NUMBER 

COMP 

JMP 

C,RA1 

WRAP  AROUND  IF  LAST 

LOD  I 

HL, START 

RA1 

LOD 

E,M 

INC 

HL 

LOD 

D,M 

ST 

HL , RANPNT 

POP 

HL 

A3S 


SIZE 


0@@@ 


XCH 

HL,DE 

PUSH 

BC 

CALL- 

DIVIDE 

RND( N) -MODi  M,N)+1 

FOP 

BC,DE 

INC 

HL 

RET 

0 

CALL 

PARN 

***  ABS(  EXPR)  *** 

CALL 

CHKSGN 

CHECK  SIGN 

LOD 

A,H 

NOTE  THAT  -3276S 

IOR 

H 

CANNOT  CHANGE  SIGN 

JMP 

S , OHOW 

SO  SAY:  "HOW?" 

RET 

U 

LD 

HL , TXTUNF 

***  SIZE  *** 

PUSH 

DE 

GET  THE  NUMBER  OF  FREE 

XCH 

HL,DE 

BYTES  BETWEEN  'TXTUNF' 

LODI 

HL,VARBGN 

AND  ' VARBGN ' 

CALL 

SUBDE 

POP 

DE 

RET 

U 

*«*«***»*** 


flll***^^*********^****^***^^***? 


r*****WW*Wx 


*  ***  DIVIDE  **"  SUBDE  *•*  CHKSGN  ***  CHGSGN  ***  4  CKHLDE  • *  * 

*  'DIVIDE'  DIVIDES  HL  BY  DE,  RESULT  IN  3C ,  REMAINDER  IN  HL 

*  'SUBDE'  SUBTRACTS  DE  FROM  HL 

"  'CHKSGN'  CHECKS  SIGN  OF  HL.   IF  + ,  NO  CHANGE.   IF  -,  CHANGE 

*  SIGN  AND  FLIP  SIGN  OF  B. 

* 

"  'CHGSGN'  CHNGES  SIGN  OF  HL  AND  B  UNCONDITIONALLY. 

*  'CKHLDE'  CHECKS  SIGN  OF  HL  AND  DE .   IF  DIFFERENT,  HL  AND  DE 
«  ARE  INTERCHANGED.   IF  SAME  SIGN,  NOT  INTERCHANGED.   EITHER 
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»    CASE,    HL    DE   ARE    THEN   COMPARED    TO    SET    THE    FLAGS 


054A 

E5 

DIVIDE 

PUSH 

HL 

***    DIVIDE    "** 

#543 

6C 

LOD 

L,H 

DIVIDE    H    BY    DE 

054C 

Z600 

LODI 

H.0 

054E 

CD5505 

CALL 

DV1 

0551 

41 

LOD 

E,C 

SAVE    RESULT    IN   B 

e552 

7D 

LOD 

A,L 

(  REMAINDER  +  D/DE 

0553 

El 

POP 

HL 

2  5  54 

67 

LOD 

H,A 

0555 

0EFF 

DV1 

LODI 

C,-l 

RESULT    IN    C 

0557 

0C 

DV2 

INC 

C 

DUMB    ROUTINE 

0558 

CD6005 

CALL 

SUBDE 

DIVIDE    3Y    SUBTRACT 

055B 

D25705 

JMP 

NC,DV2 

AND    COUNT 

055E 

19 

ADD 

HL,DE 

055F 

C9 

RET 

U 

0560 

7D 

SDBDE 

LOD 

A,L 

"**    SUBDE    *** 

05S1 

93 

SUB 

E 

SUBTRACT    DE    FROM 

0562 

6F 

LOD 

L,A 

EL 

0563 

7C 

LOD 

A,H 

0564 

9A 

SBB 

D 

0565 

67 

LOD 

H,A 

0566 

ft 

C9 

RET 

U 

0567 

7C 

CHKSGN 

LOD 

A,H 

***    CHKSGN    *** 

0568 

B7 

IOR 

A 

CHECK    SIGN   OF    HL 

0569 

* 

F0 

RET 

NS 

IF    -,     CHANGE    SIGN 

056A 

7C 

CHGSGN 

LOD 

A,H 

**"    CHGSGN    *** 

056B 

2F 

CMA 

, 

CHANGE    SIGN    OF    HL 

056C 

67 

LOD 

H,A 

056D 

7D 

LOD 

A,L 

056E 

2F 

CMA 

t 

056F 

6F 

LOD 

L,A 

0570 

23 

INC 

HL 

0571 

78 

LOD 

A,E 

AND   ALSO    FLIP    B 

0572 

EE80 

XORI 

X'  80' 

0574 

47 

LOD 

3, A 

0575 

* 

C9 

RET 

U 

0576 

7C 

CXHLDE 

LOD 

A,H 

0577 

AA 

XOR 

D 

SAME    SIGN? 

0578 

F27C05 

JMP 

NS ,CK1 

YES ,     COMPARE 

057B 

EB 

XCH 

HL,DE 

NO,     XCH    AND    COMP 

057C 

E7 

CK1 

COMP 

057D 

* 

C9 

RET 

U 

*«*    SETVAL    ***    FIN    ***    ENDCHK    ***    6    ERROR    16    FRIENDS)     *"* 

"SETVAL"  EXPECTS  A  VARIABLE,  FOLLOWED  BY  AN  EQUAL  SIGN  AND 
TEEN  AN  EXPR.  IT  EVALUATES  THE  EXPR.  AND  SET  THE  VARIABLE 
TO    THAT    VALUE. 

"FIN"  CHECKS  THE  END  OF  A  COMMAND.  IF  IT  ENDED  WITH  ";", 
EXECUTION  CONTINUES.  IF  IT  ENDED  WITH  A  CR,  IT  FINDS  THE 
NEXT    LINE    AND    CONTINUE    FROM    THERE. 
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"ENDCHK"  CHECKS  IF  A  COMMAND  IS  ENDED  WITH  CR.   THIS  IS 
REQUIRED  IN  CERTAIN  COMMANDS.  (GOTO,  RETURN,  AND  5TOP  ETC.) 

"ERROR"  PRINTS  THE  STRING  POINTED  BY  DE  (AND  ENDS  WITH  CR). 
IT  THEN  PRINTS  THE  LINE  POINTED  BY  '  CUP.RNT  '  WITH  A  "?" 
INSERTED  AT  WHERE  THE  OLD  TEXT  POINTER  (  SHOULD  BE  ON  TOP 
OF  THE  STACK)  POINTS  TO.   EXECUTION  OF  TB  IS  STOPPED 
AND  TEI  IS  RESTARTED.   HOWEVER,  IF  ' CURRNT '  ->  ZERO 
(INDICATING  A  DIRECT  COMMAND),  THE  DIRECT  COMMAND  IS  NOT 
PRINTED.   AND  IF  'CURRNT'  ->  NEGATIVE  #  (INDICATING  'INPUT' 
COMMAND,  THE  INPUT  LINE  IS  NOT  PRINTED  AND  EXECUTION  IS 
NOT  TERMINATED  BUT  CONTINUED  AT  'INPEER'. 

RELATED  TO  'ERROR'  ARE  THE  FOLLOWING: 

'QWKAT'  SAVES  TEXT  POINTER  IN  STACK  AND  GET  MESSAGE  "WHAT?" 

•AWHAT'  JUST  GST  MESSAGE  "WHAT?"  AND  JUMP  TO  'ERROR'. 

'QSORRY'  AND  'ASORRY'  DO  SAME  KIND  OF  THING. 

'QHGW'  AND  'AHCW'  IN  THE  2ERO  PAGE  SECTION  ALSO  DC  THIS 


057E 

FF 

057F 

DAA405 

0532 

E5 

0583- 

CF 

0584 

3D 

0585 

03 

0586 

DF 

0587 

444D 

0589 

El 

058A 

71 

053B 

23 

053C 

70 

058D 

C9 

058E 

* 

C3A405 

0591 

CF 

0592 

33 

0593 

04 

0594 

Fl 

0595 

C34902 

0598 

CF 

0599 

0D 

059A 

04 

059B 

?1 

053C 

C33902 

059F 

* 

C9 

05A0 

EF 

05A1 

FE0D 

05A3 

* 

C3 

05A4 

D5 

05A5 

11AE00 

05A3 

97 

05A9 

CD3C06 

05AC 

Dl 

0  5  AD 

1A 

05AE 

F5 

05AF 

97 

05B0 

12 

05B1 

2A0108 

SETVAL 

TSTV 

JMP 

CQWHAT 

PUSH 

HL 

TSTC 

'-' ,SV1 

EX  PR 

LOD 

3C,HL 

POP 

HL 

LOD 

M,C 

INC 

HL 

LOD 

M,B 

RET 

U 

SV1 

JMP 

QWHAT 

FIN 

TSTC 

' ; ' ,FI1 

POP 

AF 

JMP 

RUNSML 

FI1 

TSTC 

@CR,FI2 

POP 

AF 

JMP 

RUNNXL 

FI2 

RET 

U 

ENDCHK 

IGNBLK 

CMP  I 

@CR 

RET 

Z 

QWHAT   PUSH  DE 
AWHAT   LODI  DE,WHAT 


ERROR 


SUB   A 

CALL  PRTSTG 

POP   DE 

LD    A,(DE) 

PUSH  AF 

SUB   A 

ST    A,(DE) 


***  SETVAL  *** 
"WHAT?"  NO  VARIABLE 
SAVE  ADDRESS  OF  VAR . 
PASS  "«"  SIGN 


EVALUATE  SXPR. 
VALUE  IN  BC  NOW 
GET  ADDRESS 
SAVE  VALUE 


NO  "-"  SIGN 
**  *  FTN  *  *  * 


";",  PURGE  RET.  ADDR. 
CONTINUE  SAME  LINE 
NOT  " ; " ,  IS  IT  CR? 


YES,  PURGE  RET.  ADDR. 

RUN  NEXT  LINE 

ELSE  RETURN  TO  CALLER 

***  ENDCHK  *** 

END  WITH  CR? 

OK,  ELSE  SAY:  "WHAT?" 

***  QWHAT  *** 

""*  AWHAT  "** 

'■**    ERROR  '** 

PRINT  'WHAT? ' ,  'HOW?' 

OR  'SORRY' 

SAVE  THE  CHARACTER 

AT  WHERE  OLD  DE  - > 

AND  PUT  A  0  THERE 


LD 


HL, CURRNT  GET  CURRENT  LINE  # 


19 


55 


05B4 

E5 

PUSH 

HL 

05B5 

7E 

LOD 

A.M 

05E6 

23 

INC 

HL 

05B7 

E6 

108 

M 

05B8 

Dl 

POP 

DE 

0539 

CA0000 

JMP 

Z .START 

05  EC 

7E 

LCD 

A,M 

05BD 

B7 

IOR 

A 

05BE 

FAA703 

JMP 

S , INPERR 

05C1 

CDAA06 

CALL 

PRTLN 

05C4 

IB 

DEC 

DE 

05C5 

Fl 

POP 

AF 

05C6 

12 

ST 

A,(  DE) 

05C7 

3E3F 

LODI 

A,  '  ?  ' 

05C9 

D7 

OUTC 

05CA 

97 

SUS 

A 

05CB 

CD3C06 

CALL 

PRTSTG 

05CE 

C7 

RSTART 

05CF 

D5 

QSORRY  PUSH 

DE 

05D0 

11B4  00 

ASORRY  LODI 

DE,  SORRY 

05D3 

C3A305 

JMP 

ERROR 

CHECK  THE  VALUE 


IF  ZERO,  JUST  RESTART 
IF  NEGATIVE, 

REDO  INPUT 
ELSE  PRINT  THE  LINE 
UPTO  WHERE  THE  0  IS 
RESTORE  THE  CHARACTER 

PRINT  A  "?" 

AND  TEE  REST  OF  THE 

LINE 

THEN  RESTART 

***  QSORRY  **« 

***  ASORRY  »** 


»**  GETLN  ***  FNDLN  (6  FRIENDS)  *** 

'GETLN'  READS  A  INPUT  LINE  INTO  'BUFFER'.   IT  FIRST  PROMPT 
THE  CHARACTER  IN  A  (GIVEN  BY  THE  CALLER),  THEN  IT  FILLS  THE 
THE  EUFFER  AND  ECHOS .   IT  IGNORES  LF ' S  AND  NULLS,  BUT  STILL 
ECHOS  THEM  BACK.   RUE -OUT  IS  USED  TO  CAUSE  IT  TO  DELETE 
THE  LAST  CHARATER  C IS    THERE  IS  ONE!,  AND  ALT-MOD  IS  USED  TO 
CAUSE  IT  TO  DELETE  THE  WHOLE  LINE  AND  START  IT  ALL  OVER. 
CR  SIGNALS  THE  END  OF  A  LINE,  AND  CAUSE  'GETLN'  TO  RETURN. 


' FNDLN'  FINDS  A  LI 
TEXT  SAVE  AREA.   D 
LINE  IS  FOUND,  DE 
(I.E.,  THE  LOW  BYT 
IF  THAT  LINE  IS  NO 
IS  FOUND,  DE  POINT 
WE  REACHED  THE  END 
LINE,  FLAGS  ARE  C 
'FNDLN'  WILL  INITI 
AREA  TO  START  THE 
ROUTINE  WILL  NOT  I 
'FNDLN?'  WILL  STAR 
' FNDNXT '  WILL  BUMP 
'FNDSKP'  USE  DE  TO 


NE  WITH  A  GIVEN  LINE  #  I   IN  HL )  IN  THE 

IS  USED  AS  THE  TEXT  POINTER.   IF  THE 
WILL  POINT  TO  THE  BEGINNING  CF  THAT  LINE 
E  OF  THE  LINE  #),  AND  FLAGS  ARE  NC  a  Z. 
T  THERE  AND  A  LINE  WITH  A  HIGHER  LINE  # 

5  TO  THERE  AND  FLAGS  ARE  NC  6  NZ .   IF 
OF  TEXT  SAVE  ARE  AND  CANNOT  FIND  THE 

6  NZ  . 

ALIZE  DE  TO  THE  BEGINNING  OF  THE  TEXT  SAVE 
SEARCH.   SOME  OTHER  ENTRIES  OF  THIS 
NITIALIZE  DE  AND  DO  THE  SEARCH. 
T  WITH  DE  AND  SEARCH  FOR  THE  LINE  *. 

DE  BY  2,  FIND  A  CR  AND  THEN  START  SEARCH. 
FIND  A  CR,  AND  THEN  STRART  SEARCH. 


05D6  D7 

05D7  11371F  a@@@ 

05DA  CD3207 

0  5DD  CADA0  5 

05E0  D7 

05E1  FE0A 

05E3  CADA05 

05E6  E7 

05E7  CADA05 

05EA  FE7F 

05EC  CAFF05 


GETLN   OUTC 


GETLN 


GL1 


LODI  DE, BUFFER  PROMPT  AND  INIT. 
CHECK  KEYBOARD 
NO  INPUT,  WAIT 
INPUT,  ECHO  BACK 
IGNORE  LF 


IGNORE  NULL 


CALL 

CHXIC 

JMP 

Z.GL1 

OUTC 

CMP  I 

@LF 

JMP 

2.GL1 

IOR 

A 

JMP 

Z,GL1 

CMP  I 

@DLCH 

JMP 

Z  ,GL3 

DELET: 
YES 


LAST  CHARACTER? 
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USE? 

FE7D 

05F1 

CA0C05 

05F4 

12 

05F5 

13 

05F6 

FE0D 

05F8 

C8 

05F9 

7B 

05  FA 

FE7F 

0  5?C 

C2DA05 

B5FF 

73 

0600 

FE37 

0602 

CA0C06 

3605 

IB 

0606 

3E5C 

0608 

D7 

0609 

C3DA05 

060C 

CD0S00 

060F 

3Z5E 

0611 

C3D605 

0614 

7C 

0615 

B7 

0616 

FA9F00 

0619 

* 

111508 

061C 

061C 

E5 

05  ID 

2A1308 

0520 

2B 

0521 

E7 

0622 

El 

0623 

D8 

0624 

1A 

0625 

95 

0626 

47 

0627 

13 

0528 

1A 

0529 

9C 

052A 

DA3106 

062D 

IB 

062E 

30 

062F 

ft 

C9 

0630 

06  30 

13 

0631 

* 

13 

0532 

1A 

06  3  3 

FE0D 

£635 

C23106 

0633 

13 

0639 

C31C06 

GL3 


GL4 


FNDLN 


CMPI    SDLLN  DELETE    THE   WHOLE    LINE? 

JMP       Z,GL4  YES 

ST         A,(DE)  ELSE,     SAVE    INPUT 

INC       DE  AND    BUMP    POINTER 

CMPI    5CR  WAS    IT    CR? 

RET       Z  YES,     END    OF    LINE 

LOD      A,E  ELSE,    MORE    FREE    ROOM? 

CMPI    BUFEND,> 

JMP      NZ,GL1  YES,    GET    NEXT    INPUT 

LOD      A,E  DELETE    LAST    CHARACTER 

CMPI    BUFFER, >  BUT    DO    WE    HAVE    ANY? 

JMP       Z.GL4  NO,     REDO    WHOLE    LINE 

DEC       DE  YES,     BACKUP    POINTER 

LODI    A.3BKS  AND    ECHO   A    BACK-SLASH 

OUTC 

JMP      GL1  GO    GET    NEXT    INFUT 

CALL    CRLF  REDO    ENTIRE    LINE 

LODI    A,@UPA  CR,    LF    AND    Up -ARROW 

JMP      GETLN 


LOD      A,H 

IOR      A 

JMP       S.QHOW 

LODI    DE.TXTBGN 


***    FNDLN    *** 
CHECK    SIGN    OF    HL 
IT    CANNOT    BE    - 
INIT.     TEXT    POINTER 


FNDLNP    EQU 


FL1 


PUSH 

LD 

DSC 

COMP 

POP 

RET 

LD 

SUB 

LOD 

INC 

LD 

SBB 

JMP 

DEC 

IOR 

RET 


FNDNXT    EQU 

INC 

FL2  INC 


*  ■**    FNDLNP    *** 

HL  SAVE    LINE    # 

HL.TXTUNF  CHECK    IF    WE    PASSED    END 

HL 


HL 

C 

A,(  DE'/ 

L 

B,A 

DE 

A,( DE) 

H 

CFL2 

DE 

B 

U 


DE 
DE 


FNDSKP    LD  A,( DE) 

CMPI  OCR 

JMP  NZ,FL2 

INC  DE 

JMP  FL1 


GET    LINE    #    BACK 

C,NZ    PASSED    END 

WE    DID    NOT,    GET    BYTE    1 

IS    THIS    THE    LINE? 

COMPARE    LOW   ORDER 

GET    BYTE    2 
COMPARE    HIGH    ORDER 
NO  ,     NOT    THERE    YET 
ELSE    WE    EITHER    FOUND 
IT,     OR    IT    IS    NOT    THERE 
NC , Z : FOUND ;     NC , HZ : NO 

***  FNDNXT  *** 
FIND  NEXT  LINE 
JUST    PASSED    BYTE    1    &    2 

***    FNDSKP    *** 

TRY    TO    FIND    CR 

KEEP    LOOKING 

FOUND    CR,     SKIP    OVER 

CHECK    IF    END    CF    TEXT 


PRTSTG    **"    QTSTG    "**    PRTNUM 


&    PRTLN 


1 PRTSTG '     PRINTS    A    STRING    POINTED    BY    DE.        IT    STOPS    PRINTING 
AND    RETURNS    TO    CALLER   WHEN    EITHER   A    CR    IS    PRINTED    CR    WHEN 
THE    NEXT    BYTE    IS    THE    SAME    AS    WHAT    WAS    IN    A    (  GIVEN    BY    THE 
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*  CALLER).   OLD  A  IS  STORED  IN  B,  OLD  B  IS  LOST. 

• 

*  'QTSTG'  LOOKS  FOR  A  BACK -ARROW,  SINGLE  QUOTE,  OR  DOUBLE 

*  QUOTE.   IF  NONE  OF  THESE,  RETURN  TO  CALLER.   IF  BACK-ARROW, 

*  OUTPUT  A  CR  WITHOUT  A  LF .   IF  SINGLE  OR  DOUBLE  QUOTE,  PRINT 

*  THE  STRING  IN  THE  QUOTE  AND  DEMANDS  A  MATCHING  UNQUOTE. 

*  AFTER  THE  PRINTING  THE  NEXT  3  BYTES  OF  THE  CALLER  IS  SKIPPED 

*  OVER  (USUALLY  A  JUMP  INSTRUCTION). 
* 

«  'PRTNUM'  PRINTS  THE  NUMBER  IN  HL .   LEADING  BLANKS  ARE  ADDED 

*  IF  NEEDED  TO  PAD  THE  NUMBER  OF  SPACES  TO  THE  NUMBER  IN  C. 

*  HOWEVER,  IF  THE  NUMBER  OF  DIGITS  IS  LARGER  THAN  THE  #  IN 

*  C,  ALL  DIGITS  ARE  PRINTED  ANYWAY.   NEGATIVE  SIGN  IS  ALSO 

*  PRINTED  AND  COUNTED  IN,  POSITIVE  SIGN  IS  NOT. 
* 

*  'PRTLN'  PRINTS  A  SAVED  TEXT  LINE  WITH  LINE  #  AND  ALL. 


063C 

47 

PRTSTG 

LOD 

B,A 

***  PRTSTG  *»* 

06  3D 

1A 

PS1 

LD 

A,( DE) 

GET  A  CHARACTER 

063E 

13 

INC 

DE 

BUMP  POINTER 

063F 

B8 

CMP 

3 

SAME  AS  OLD  A? 

0640 

Co 

RET 

2 

YES,  RETURN 

0641 

D7 

OUTC 

ELSE  PRINT  IT 

0642 

FE0D 

CMP  I 

@CR 

WAS  IT  A  CR? 

0644 

C23D06 

JMP 

NZ,PS1 

NO  ,  NEXT 

0647 

* 

C9 

RET 

U 

YES,  RETURN 

06  4  8 

CF 

QTSTG 

TSTC 

'  "'  ,QT3 

***  QTSTG  "** 

0649 

22 

064A 

0F 

064B 

3E22 

LODI 

A ,  '  "" 

IT  IS  A  " 

064D 

CD3C06 

QT1 

CALL 

PRTSTG 

PRINT  UNTIL  ANOTHER 

0650 

FE0D 

CMPI 

SCR 

WAS  LAST  ONE  A  CR? 

0652 

El 

POP 

HL 

RETURN  ADDRESS 

05  5  3 

CA3902 

JMP 

Z , RUNNXL 

WAS  CR,  RUN  NEXT  LINE 

0656 

232323 

QT2 

INC 

HL,3 

SKIP  3  BYTES  ON  RETURN 

0659 

E9 

JMP 

(  HL) 

RETURN 

06  5A 

CF 

QT3 

TSTC 

@QT,QT4 

IS  IT  A  '  ? 

065B 

27 

065C 

05 

06  5D 

3E27 

LODI 

A,@QT 

YES,  DO  SAME 

065F 

C34D06 

JMP 

QT1 

AS  IN  " 

06  6  2 

CF 

QT4 

TSTC 

@BKA,QT5 

IS  IT  BACK-ARROW? 

06  6  3 

5F 

0664 

03 

06  6  5 

3E3D 

LODI 

A,X'8D' 

YES,  CR  WITHOUT  LF 

06  6  7 

D7 

OUTC 

DO  IT  TWICE  TO  GIVE 

0668 

D7 

OUTC 

TTY  ENOUGH  TIME 

0669 

El 

POP 

HL 

RETURN  ADDRESS 

06  6A 

C35606 

JMP 

QT2 

066D 

C9 

QT5 

RET 

U 

NONE  OF  ABOVE 

066E 

D5 

PRTNUM 

PUSH 

DE 

***  PRTNUM  *** 

066F 

110A00 

LODI 

DE.10 

DECIMAL 

0672 

D5 

PUSH 

DE 

SAVE  AS  A  FLAG 

0673 

42 

LOD 

B,D 

B-SIGN 

0674 

0D 

DEC 

C 

C-SPACES 

0675 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN 

0678 

F27E06 

JMP 

NS , PN1 

NO  SIGN 

067B 

062D 

LODI 

B,  '-' 

B-SIGN 
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067D 

0D 

DEC 

C 

'-'  TAKES  SPACE 

067E 

C5 

PN1 

PUSH 

BC 

SAVE  SIGN  C    SPACE 

067F 

CD4A05 

PN2 

CALL 

DIVIDE 

DEVIDE  HL  BY  10 

0682 

73 

LOD 

A.B 

RESULT  0? 

0683 

Bl 

IOR 

C 

0684 

CA3F06 

JMP 

Z.PN3 

YES ,  WE  GOT  ALL 

0687 

E3 

XCH 

HL,C  SP) 

NO,  SAVE  REMAINDER 

0688 

2D 

DEC 

L 

AND  COUNT  SPACE 

0689 

ES 

PUSH 

HL 

HL  IS  OLD  BC 

06  8A 

6069 

LOD 

HL.BC 

MOVE  RESULT  TO  BC 

068C 

C37F06 

JMP 

FN2 

AND  DIVIDE  BY  10 

068F 

CI 

PN3 

POP 

BC 

WE  GOT  ALL  DIGITS  IN 

0690 

0D 

PN4 

DEC 

C 

THE  STACK 

06  91 

79 

LOD 

A,C 

LOOK  AT  SPACE  COUNT 

0692 

B7 

IOR 

A 

0693 

FA9C06 

JMP 

S.PN5 

NO  LEADING  BLANKS 

0696 

3E20 

LOD  I 

A,'  ' 

LEADING  BLANKS 

0698 

D7 

OUTC 

0699 

C39006 

JMP 

PN4 

MORE? 

069C 

78 

PN5 

LOD 

A,B 

PRINT  SIGN 

069D 

D7 

OUTC 

MAYBE  -  OR  NULL 

069E 

5D 

LOD 

E,L 

LAST  REMAINDER  IN  E 

06  9  F 

7B 

PN6 

LOD 

A,E 

CHECK  DIGIT  IN  E 

06A0 

FE0A 

CMP  I 

10 

10  IS  FLAG  FOR  NO  MORE 

06A2 

Dl 

POP 

DE 

06A3 

C8 

RET 

Z 

IF  SO,  RETURN 

06A4 

C630 

ADDI 

'0' 

ELSE  COVERT  TO  ASCII 

06A6 

D7 

OUTC 

AND  PRINT  THE  DIGIT 

06A7 

C39F06 

JMP 

PN6 

GO  BACK  FOR  MORE 

06AA 

1A 

PRTLN 

LD 

A,(DE) 

•*•  ppTLN  *** 

06AB 

6P 

LOD 

L,A 

LOW  ORDER  LINE  * 

06  AC 

13 

INC 

DE 

06AD 

1A 

LD 

A,( DE) 

HIGH  ORDER 

06AE 

67 

LOD 

H,A 

06AF 

13 

INC 

DE 

06B0 

0E04 

LODI 

C,4 

PRINT  4  DIGIT  LINE  ♦ 

06B2 

CD6E06 

CALL 

PRTNUM 

06B5 

3E20 

LODI 

A,  '  ' 

FOLLOWED  BY  A  BLANK 

05B7 

D7 

OUTC 

06B8 

97 

SUB 

A 

AND  THEN  THE  TEXT 

05B9 

CD3C06 

CALL 

PRTSTG 

06BC 

C9 

RET 

U 

*  •*«  MVUP  *"*  MVDOWN  **»  POPA  **"  &  PUSHA  *** 

gr 

*  'MVUP'  MOVES  A  BLOCK  UP  FROM  WHERE  DE->  TO  WHERE  EC->  UNTIL 

*  DE  -  HL 

» 

*  'MVDCWN'  MOVES  A  BLOCK  DOWN  FROM  WHERE  DE->  TO  WHERE  HL-> 

*  UNTIL  DE  -  BC 

* 

*  'POPA'  RESTORES  THE  'FOR'  LOOP  VARIABLE  SAVE  AREA  FROM  THE 

*  STACK 

* 

*  'PUSHA'  STACKS  THE  'FOR'  LOOP  VARIABLE  SAVE  AREA  INTO  THE 

*  STACK 


23 


59 


06BD 

E7 

06BE 

C8 

06EF 

1A 

06C0 

02 

06C1 

13 

06C2 

03 

06C3 

IT 

C3BD06 

06C6 

78 

06C7 

92 

06C3 

C2CE06 

06CB 

79 

06CC 

93 

06CD 

C3 

06CE 

IB 

06CF 

2B 

06D0 

1A 

06D1 

77 

06D2 

C3C606 

06D5 

CI 

06D6 

El 

06D7 

220708 

06  DA 

7C 

06DB 

B5 

06DC 

CAEF06 

06DF 

El 

06  E0 

220908 

06E3 

El 

06E4 

220B08 

06E7 

El 

06E8 

2  20D08 

06  EB 

El 

06EC 

220F03 

06EF 

C5 

06  F0 

* 

C9 

06F1 

21A71F  @@ee 

06F4 

CD6A05 

06F7 

CI 

06F8 

39 

06F9 

D2CF05 

06FC 

2A£f708 

06FF 

7C 

0700 

B5 

0701 

CA1707 

0704 

2A0F03 

0707 

E5 

0708 

2A0D08 

070B 

E5 

070C 

2A0B08 

07  0F 

E5 

0710 

2A0908 

0713 

E5 

0714 

2A0708 

0717 

E5 

0718 

C5 

0719 

C9 

MVUP 

COMP 

*  *  *  MVUP  *  *  * 

RET 

Z 

DE  -  HL,  RETURN 

LD 

A,(  DE) 

GET  ONE  BYTE 

ST 

A , ( BC ) 

MOVE  IT 

INC 

DE 

INCREASE  BOTH  POINTERS 

INC 

BC 

JMP 

MVUP 

UNTIL  DONE 

MVDOWN 

LOD 

A,B 

**"  MVDOWN  *** 

SUB 

D 

TEST  IF  DE  -  BC 

JMP 

NZ.MD1 

NO,  GO  MOVE 

LOD 

A,C 

MAYBE,  OTHER  BYTE? 

SUB 

E 

RET 

Z 

YES ,  RETURN 

MD1 

DEC 

DE 

ELSE  MOVE  A  BYTE 

DEC 

HL 

BUT  FIRST  DECREA3E 

LD 

A,( DE> 

BOTH  POINTERS  AND 

LOD 

M,A 

THEN  DO  IT 

JMP 

MVDOWN 

LOOP  BACK 

POPA 

POP 

BC 

BC  -  RETURN  ADDR . 

POP 

HL 

RESTORE  LOPVAR,  BUT 

ST 

HL, LOPVAR 

-0  MEANS  NO  MORE 

LOD 

A,H 

IOR 

L 

JMP 

Z.PP1 

YEP,  GO  RETURN 

POP 

HL 

NOP,  RESTORE  OTHERS 

ST 

HL,LOPINC 

POP 

HL 

ST 

HL.LOPLMT 

POP 

HL 

ST 

HL.LOPLN 

POP 

HL 

ST 

HL.LOPPT 

PP1 

PUSH 

BC 

BC  -  RETURN  ADDR. 

RET 

U 

PUSHA 

LODI 

HL.STKLMT 

***  PUSHA  *** 

CALL 

CHGSGN 

POP 

BC 

BC-RETURN  ADDRESS 

ADD 

HL.SP 

IS  STACK  NEAR  THE  TOP? 

JMP 

NC.QSORRY 

YES,  SORRY  FOR  THAT. 

LD 

HL, LOPVAR 

ELSE  SAVE  LOOP  VAR . S 

LOD 

A.H 

BUT  IF  LOPVAR  IS  0 

IOR 

L 

THAT  WILL  3E  ALL 

JMP 

Z.PU1 

LD 

HL,LCPPT 

ELSE,  MORE  TO  SAVE 

PUSH 

HL 

LD 

HL.LOPLN 

PUSH 

HL 

LD 

HL.LOPLMT 

PUSH 

HL 

LD 

HL, LOP  INC 

PUSH 

HL 

LD 

HL,LOPVAR 

PU1 

PUSH 

HL 

PUSH 

3C 

BC  -  RETURN  ADDR. 

RET 

0 
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OUTC 


&  CHKIO 


THESE  ARE  THE  ONLY  I/O  ROUTINES  IN  TBI. 

•OUTC  IS  CONTROLLED  BY  A  SOFTWARE  SWITCH  'OCSW'  .   IF  OCSW-0 

•OUTC  WILL  JUST  RETURN  TO  THE  CALLER.   IF  OCSW  IS  NOT  0, 

IT  WILL  OUTPUT  THE  BYTE  IN  A.   IF  THAT  IS  A  CR,  A  LF  IS  ALSO 

SEND  OUT.   ONLY  THE  FLAGS  MAY  BE  CHANGED  AT  RETURN,  ALL  REG. 

ARE  RESTORED. 

'CHKIO'  CHECKS  THE  INPUT.   IF  NO  INPUT,  IT  WILL  RETURN  TO 
THE  CALLER  WITH  THE  2  FLAG  SET.   IF  THERE  IS  INPUT,  Z  FLAG 
IS  CLEARED  AND  THE  INPUT  BYTE  IS  IN  A.   KOWERER,  IF  THE 
INPUT  IS  A  CONTROL-O,  THE  'OCSW  SWITCH  IS  COMPLIMENTED ,  AND 
2  FLAG  IS  RETURNED.   IF  A  CONTROL-C  IS  READ,  'CHKIO'  WILL 
RESTART  TBI  AND  DO  NOT  RETURN  TO  THE  CALLER. 


* 

OUTC 

PUSH 

AF 

THIS  IS  AT  LOC.  10 

* 

LD 

A,  OCSW 

CHECK  SOFTWARE  SWITCH 

* 

I  OR 

A 

07  1A 

C21F07 

OC2 

JMP 

NZ , OC  3 

IT  IS  ON 

071D 

Fl 

POP 

AF 

IT  IS  OFF 

071E 

C9 

RET 

U 

RESTORE  AF  AND  RETURN 

071F 

D300 

OC3 

INP 

0 

COME  HERE  TO  DO  OUTPUT 

0721 

E602 

ANDI 

X'02' 

STATUS  BIT 

0723 

CA1F07 

JMP 

Z,OC3 

NOT  READY,  WAIT 

0726 

Fl 

POP 

AF 

READY,  GET  OLD  A  BACK 

07  2  7 

D301 

OUT 

1 

AND  SEND  IT  OUT 

0729 

FE0D 

CMPI 

@cr 

WAS  IT  CR? 

072B 

C0 

RET 

NZ 

NO,  FINISHED 

072C 

3E0A 

LODI 

A.SLF 

YES,  WE  SEND  LF  TOO 

072E 

D7 

OUTC 

THIS  IS  RECURSIVE 

072F 

IZUV 

LODI 

A, SCR 

GET  CR  3ACK  IN  A 

07  31 

C9 

RET 

U 

0732 

D300 

CHKIO 

INP 

0 

***  CHKIO  *** 

0734 

S3 

NOP 

f 

STATUS  BIT  FLIPPED? 

07  3  5 

c',6  20 

ANDI 

X'  20' 

MASK  STATUS  BIT 

07  3  7 

C8 

RET 

Z 

NOT  READY,  RETURN  "Z" 

0738 

DB01 

INP 

1 

READY,  READ  DATA 

073A 

E67F 

AUDI 

X  '  7  F  ' 

MASK  BIT  7  OFF 

073C 

FE0F 

CMPI 

eco 

IS  IT  CONTROL-O? 

073E 

C24B07 

JMP 

NZ,CI1 

NO,  MORE  CHECKING 

07  41 

3A000S 

LD 

A,  OCSW 

CONTROL-O  FLIPS  OCSW 

0744 

2F 

CMA 

, 

ON  TO  OFF,  OFF  TO  ON 

0745 

320008 

ST 

A, OCSW 

0748 

C33207 

JMP 

CHKIO 

GET  ANOTHER  INPUT 

074B 

FE03 

CI1 

CMPI 

dec 

IS  IT  CONTROL-C? 

074D 

C0 

RET 

NZ 

NO,  RETURN  "NZ" 

074E 

C7 

RSTART 

YES,  RESTART  TBI 

074F 

594F55204D415920 

CHAR 

' YOU  MAY 

NEED  THIS  SPACE  TO' 

0757 

4E4  54544205 

44849 

075F 

5320535041434520 

2767 

544F 

0769 

5041544348205550 

CHAH 

' PATCH  UP 

THE  I/O  ROUTINES, ' 

0771 

20544845204 

52F4F 

0779 

20524F5554494E45 

0781 

532C 

0783 

544F204649532055 

CHAR 

'TO  FIX  UP  BUGS,  OR  TO  ADD' 

0783 

502042  5547532C20 

0793 

4F5220544F2 

04144 
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079B 
07  9C 
07A4 
07AC 
07B4 
07B8 
07C0 
07C8 
07D0 
07D1 
07D9 
07E1 
07E8 
07  F0 
07F8 
07PF 

0800 
0801 
0803 
0805 
0805 
0807 
0809 
080B 
080D 
080F 
0811 
0813 
0815 
1F00 

1F00 

1F36 

1F37' 

1F7P 

1F7F 

1FA7 

2000 


44 

4D4F524 

4D414E4 

4420465 

4F4E532 

534B592 

4345292 

4845204 

2E 

474F4F4 

4B20414 

4F44204 

4C49434 

414E472 

4A554E4 


FF 

0000 

0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
1508 


520434F4D 

45320414E 

54E435449 

E 

028535041 

049532054 

C494D4954 

4204C5543 

E44204T4F 

259452S 

8454E2057 

C20313020 

5203736 

LSTROM 

OCSW 

CURRNT 

STKGOS 

VARNXT 

STKINP 

LOPVAR 

LOPINC 

LOPLMT 

LOPLN 

LOPPT 

RANPNT 

TXTUNF 

TXTBGN 

TXTEND 

VAREGN 

BUFFER 
BUFEND 

STKLMT 

STACK 


CHAR  "MORE  COMMANDS  AND  FUNCTIONS.' 


CHAR  "SKY  (SPACE)  IS  THE  LIMIT.' 


CHAR  'GOOD  LUCK  AND  GOOD  3YE . ' 


CHAR  'LICHEN  WANG,  10  JUNE  76' 


EQU  *  ALL  ABOVE  CAN  BE  ROM 

ORG  X'0800'  HERE  DOWN  MUST  BE  RAM 

DB  X'FF'  SWITCH  FOR  OUTPUT 

DW  0  POINTS  TO  CURRENT  LINE 

DW  0  SAVES  SP  IN  'GOSUB' 

EQU  *  TEMP  STORAGE 

DW  0  SAVES  SP  IN  'INPUT' 

DW  0  'FOR'  LOOP  SAVE  AREA 

DW  0  INCREMENT 

DW  0  LIMIT 

DW  0  LINE  NUMBER 

DW  0  TEXT  POINTER 

DW  START  RANDOM  NUMBER  POINTER 

DW  TXTBGN  ->UNFILLED  TEXT  AREA 

DS  1  TEXT  SAVE  AREA  BEGINS 

EQU  VARBGN  TEXT  SAVE  AREA  ENDS 

ORG  X'1F00' 

DS  2*27  VARIABLE  @(0> 

DS  XL1  EXTRA  BYTE  FOR  BUFFER 

DS  XL72  INPUT  BUFFER 

EQU  *  BUFFER  ENDS 

DS  XL40  EXTRA  BYTES  FOR  STACK 

EQU  *  TOP  LIMIT  FOR  STACK 

ORG  X'2000' 

EQU  *  STACK  STARTS  HERE 

END 
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10  RE"!  ENHANCED  SPEECH  RECOGNI  TION  PROGRAM 
20  REM  PROGRAM  1  

25  REM MOD  ALLOWS  USER'  TO  KEEP  WORD  TABLES 

2  6  REM  AS  DESIRED. 

30  V=10 

31  INPUT    "CLEAR    TA8LES7M     FOR    YES,  2    FOR    >JO"X 

32  IF    X    =     2    GOTO    100 
35  REM    CLEAR    T4.3LES 
40  FOR    1=3     rO    64*V-1 
50  3(730  +  1X0 

120    INPUT    "l=T.2=P"X 

14  1     IF    X    #    1     GOTO    173 

1 50    30SU8     1000 

160    GOTO     120 

170     IF    X    *    2    GOTO    200 

180    G0SU8    2000 

191    PRINT    "RECOGNIZEDS'SN 

200    GOTO     123 

2  10    PRINT    "?" 

223    GOTO     123 

1000    REM    TRAINING    ROUTINE 
131  1     IMPUT    "MUM3ER"M 
13  15     IF    M>V    PRINT    "?••    GOTO     1310 
1020    REM    GET    SPEECH 
1330    G0SO3    3033 
1340    P.EM    GET    64    PARAMETERS 
1053    5=64 

13  61     FOR    J=0     TO    S-l 
107  0    3<703+N*S  +  UX§C600+U) 
1380    MEXT    J 
1091    RETURN 

200  3    REM    PERFORMANCE    ROUT  I. ME 
2313    GO  SUB    3030 
2323    FOR    1  =  6  64    TO    663  + V 
23  43    9CIX0 
20  53    MEXT     I 
23  63    FOR    1=0    TO    V- 1 
20  7  3    FOR    J=0    TO    S-l 

2TS0    X=4  35(  '3(633  +  U)-@(733+S*I+U)  ) 
2393     IF    <?<  664+1X27503    @C  664+  I  )  =  9  (  664+  I)  +  X*X 
213  3    MEXT    J 
2123    MEXT     I 

2133    REM    FIND    SMALLEST  DI FFSREMCE 
2143    4=32030, M=3 
2150    FOR     1=3    TO    9 
2163     IF    3(664+1X4    A=@  C  664+  I  )  J  M=  I 

217  3    MEXT     I 

218  3    RETURN 

3000  REA    SPEECH    COLLECTION    ROUTINE 

33 1 0  C  =  0 

3320  SPEECH    150, 13 

3333  r=6 

3041  FOR    I=C    TO    599    STEP    4 

3350  IF    a(  I  )+@(  1+1  )+9( I+2)> r    GOTO    3390 

33  60  MEXT     I 
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307  1  PRINT    "MO    SPEECH" 

3331  RETURN 

3390  3=1 

3100  D=8 

3111  FOR    I  =  D    rO    599    STEP    4 

3120  IP    9<  I  )+@(  1  +  1  )  +  §(I  +  2XT    GOTO    3163 

3130  MEXT     I 

3143  PRI M  T    "SPEECH    OUT    OF    *I.\JDOW 

3150  RETURN 

3160  E=I 

3131  L=(E-6)/4+l 
319  0  IF    L<11    C=S5GOrO    3040 
3910  FOR    J=E    TO    E+39    STEP    4 

33  10  IF    i?CJ)+QCJ+l>  +  §CJ+2)>T    D=J;60TJ    3111 

3220  \JEXT    J 

323  1  ?.SA    COMPUTE    AVERAGE    AMPLITUDE 

32  A 1  P  =  0 

32  50  FOR    1=6    TO    E    STEP    4 
3261  ?  =  ?  +  §<  I  )  +  3CI  +  l )+§( 1+2) 
327  1  M  :X  f     I 
3230  A=P/L/3 
3291  Y=13*L/16 

33  3  0  0=3  /4*  10 

33  11  FOR    K=0     TO    S-l     STEP    4 

3321  0=D/10;R=D-0*13 

3331  0  =  0  +  4 

334  0  FOR    J=0    TJ    3 

33  51  i?(60i3  +  K+J)  =  (  C9CQ+J+4)-9CQ+J>  )  *R/ 10+@(O+ J)  ) 

33  60  MEXT    J 

337  1  D=D+Y 

33  3  0  M  EX  T    K 

33  90  REFORM 

! 

OX 


The  following  changes  are  required  to  convert  Program  1  to 
Program  2,    which  utilizes  Polynomial  Regression  along  with  the 
Euclidian  Distance  measure  of  Program  1: 

(1)  Add  line  105   105  INPUT  F 

(2)  Change  line  2090  to  read: 

2090  IF  @(664+l)<27500  @(664+l)    =.  @( 664+1 )+X*X-F*X 
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ADDR  Bi  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


3700 

3700 

3700 

3700 

3700 

3700 

3700 

3700 

3700 

3700 

3700 

3703 

3706 

3709 

3703 

370E 

3711 

3713 

3716 

3718 

37iA 

371D 

371F 

3722 

3723 

3725 

3727 

372A 

372B 

372C 

372F 

3732 

3732 

3734 

3737 

3739 

373C 

373E 

3741 

3743 

3746 

3747 

374A 

374D 

3750 

3753 

3756 

3759 

3759 

375A 

375B 

375E 

375F 

3760 

3763 

3763 

3765 


37 


SF  37 


3i  00  20 

21  94  37 

CD  7D  37 

3E  OD 

CD  Dd  38 

21  B4 

OE  4A 

CD  6F 

E6  7F 

FE  20 

DA  32  37 

FE  5B 

D2  63  37 

OD 

C2  2A  37 

OC 

C3  13  37 

77 

23 

CD  D8  38 

C3  13  37 

FE  18 

CA  OB  37 
FE  10 

CA  59  37 
FE  02 

CA  4B  38 
FE  OD 

C2  i3  37 
77 

CD  D8  38 

21  B4  37 

CD  00  20 

C4  88  37 

2i  A6  37 

C3  06  37 

'es 

C5 

CD  03  20 

CI 

El 

C3  1.3  37 

FE  7P 
C2  13  37 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 

ooyo 

0100 

OilO 

0120 

0130 

0140 

0i50 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0230 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 


CSRMON 

KEYBOARD  INPUT  CONTROLLER  TO  CALL  CSRl 

LLOYD  RICE,  COMPUTALKER  CONSULTANTS 
VERSION  1.06    MAY  30,  1977 

DEFINE  INPUT  STRING  BUFFER  LENGTH 
EQU    76 


INBFLN 

* 

CSRMON 

DSPO 

DSP1 

CHLOOP 


DSP2 
CTRL 


CUE1 


REPLAY 


GTZ 


LXI 

LXI 

CALL 

MVI 

CALL 

LXI 

MVI 

CALL 

ANI 

CPI 

JC 

CPI 

JNC 

DCR 

JNZ 

INR 

JMP 

MOV 

INX 

CALL 

JMP 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JNZ 

MOV 

CALL 

LXI 

CALL 

CNZ 

LXI 

JMP 

PUSH 

PUSH 

CALL 

POP 

POP 

JMP 

CPI 
JNZ 


SP,2000H  *  THIS  IS  THE  ONLY  STACK  INSTR 

H,MSG1 

DISPLA   *  DISPLAY  HEADING  AND  CUE 

A.ODH    *  THEN  ANOTHER  CR   " 

CHROUT 

H.BUFF 

CINBFLN-2 

CHRIN    *  READ  A  CHAR  _FROM  KBD 

7FH  < 


CTRL 

'Z'+l 

GTZ 

C 

DSP2-2 

C 

CHLOOP 

M,A 

H 

CHROUT 

CHLOOP 

18H 

DSP1 

10H 

REPLAY 

2 

BUFDIS 

ODH 

CHLOOP 

M,A 

CHROUT 

H.BUFF 

CSRl 

ERROUT 

H.MSG2 

DSPO 

H 

B 

PLAY 

B 

H 

CHLOOP 

7FH 
CHLOOP 


*  DISPLAY  THE  CHAR 

*  GET  ANOTHER 

*  CTRL  X 

*  ECHO  IT  TO  CLEAR  THE  SCREEN 

*  CTRL  P 

*  PLAY  THE  LAST  ONE  AGAIN 

*  CTRL  B 

*  DUMP  THE  BUFFER 

*  IGNORE  ALL  ELSE  BUT  CR 

*  ECHO  THE  RETURN 

*  COMPUTE  AND  SAY  IT 

*  SOMPIN*  HAPND,  WRITE  ERR  MSG 


*  PLAY  THE  LAST  ONE  AGAIN 


«  CHAR  > 


CHECK  FOR  RUBOUT 
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ADDR  Bl  B2  B3  E  LINE   LABEL  OPCD   OPERAND 

3768  OD  0580  DCR    C 

3769  2B  0590  DCX    H 

376A  00  0600  NOP    *        *  MVI  ArXX   WITH  CHAR  TO  ECHO 

376B  00  0610  NOP    *        *     ON  RUBOUT  (IF  NOT  7FH) 

376C  C3  2C  37    0620  JMP    DSP2 

376F  0630  * 

376F  0640  *   CHAR  INPUT  (CALLED  FOR  CONSOLE  KBD  INPUT) 

376F  CD  73  37    0650  CHRIN  CALL   TTYIN    •  REDEFINE  AS  NEEDED 

3772  C9  0660  RET 

3773  0670  * 

3773  0680  *   TTY  INPUT  HANDLER 

3773  DB  00  0690  TTYIN  IN     0 

3775  E6  80  0700  ANI    80H 

3777  CA  73  37    0710  JZ     S-4 

377A  DB  01  072C  IN     1 

377C  C9  0730  RET 

377D  0740  * 

377D  0750  *   MESSAGE  OUTPUT  LOOP,  STOP  ON  CHAR-04 

377D  0760  * 

377D  7E  0770  DISPLA  MOV    A,M      *  GET  CHAR 

377E  FE  04  0730  CPI    4 

3780  C3  0790  RZ     *        *  RETURN  IF  EOT 

3781  CD  D8  38    0800  CALL   CHROUT   *  NO,  OUTPUT. IT 

3784  23  0810       -  INX    H 

3785  C3  7D  37    0820  JMP    DISPLA 
3788  0830  * 

3788  0840  *   ERROR  MSG  OUTPUT,  STOP  ON  CR  (0DH) 

3788  7E  0850  ERROUT  MOV    A,M 

3789  CD  D3  38    0860  CALL   CHROUT 
378C  7E  0870  MOV    A,M 
378D  FE  0D  0880  CPI    0DH 
378F  C8  0890  RZ 

3790  23  0900  INX    H 

3791  C3  88  37    0910  JMP    ERROUT 
3794  0920  * 

3794  0C  0930  MSG1  DB     0CH      *  FIRST  CLEAR  THE  SCREEN 

3795  53  59  4E    0940  DT     'SYNTHESIS  BY  RULE' 
3798  54  48  45 

379B  53  49  53 

379E  20  42  59 

37A1  20  52  55 

37A4  4C  45 

37A6  0D  0950  MSG2  DB     0DH 

37A7  45  4E  54    0960  DT     'ENTER  TEXT:' 

37AA  45  52  20 

37AD  54  45  58 

37B0  54  3A 

37B2  OD  0970  DB     ODH 

37B3  04  0980  DB     4                               * 

37B4  0990  * 

37B4  1000  BUFF  DS     INBFLN   *  PHONEME  STRING  INPUT  BUFFER 

3800  1010  * 

3800  1020  *   END  OF  CSRMON  KEYBOARD  INPUT  HANDLER 

3800  1030  * 

3800     -  1040  ****•«»*•* 

3800  1050  * 

3800  i060  *   DIAGNOSTIC  DUMP  ROUTINES  FOR  INFO  i    DEBUGGING 
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ADDR  Bl  B2  B3  E  LINE   LABEL      OPCD   OPERAND 

3800  1070  • 

3800  1080             ORG    CSRMON+100H 

3300  i090  * 

3800  1100  •   DISPLAY  CURRENT  MATRIX  CONTENTS 

3300  1110  *   (CALLED  BY  INSTR  INSERTED  IN  CSRl  CODE)  - 

3800  21  EF  38    1120  MATDIS 

3803  CD  7D  37    H30             CALL   DISPLA   *  DISPLAY  "FEATURE  MATRIX" 

3305  2A  02  35    1140 

3909  11  06  35    1150 

360C  13  1160 

33JD  70  1170 

38'JE  2?  H80 

3BUP  4F  1' 90 

3310  06  14       1200 

3312  BB  '        1210 

3613  DA  17  38    1220 

3816  48  1230 

3617  C5  124C 

3813  21  05  35    i250 

38iB  23  1260  DL1 

331C  CD  9D  38    1270 

33iF  CD  i280 

362J  C2  13  33    1290 

3323  CD  D6  38    1300 

3326  Ci  1310 

3827  06  04       1320 

3829  21  05  35    1330 

362C  C5  1340  DL2 

332D  ii  5F  00    1350 

3B3J  19  1360 

3dJi.  £5  1370 

3832  23  1380  DL3 

3333  7E  .1390 

3834  CD  2D  38    1400 

3d37  CD  Di  38    14i0 

333A  CD  1420 

383B  C2  32  33    1430 

383E  CD  Q6  33    1440 

3841  El  1450 

3342  Ci  1460 
3843  05  1470 
3644  C2  2C  36  1430 
3647  OC  1490             NOP    •        *  'CALL  CHRIN'  TO  PAUSE  HERE 

3343  00  1500 
3849  CO  1510 
354A  C9  1520 
3343  1530  • 
3343  1540  *   BUFDIS  . 

3643  i550  *   DUMP  THE  CURRENT  BUFFER  CONTENTS 

364B  1560  *   (CALLED  BY  CTRL  3  DURING  INPUT) 

3H4B  2A  06  20    i570  BUFDIS 

3o4E  11  OB  00    1580 

385i  19  i590 

3352  22  DF  36    1600 

3855  2i  05  35    1610 

3653  7E  1620  PHLOOP 

3859  FE  04       1630 


LXI 

H,MDTX 

CALL 

DISPLA   *  DISPLAY 

LHLD 

NEGEND 

LXI 

D,MATRIX+2 

DAD 

D 

MOV 

A,L 

CIA 

MCV 

C,A 

MVI 

B,20     *  NUMBER 

CMP 

B 

JC 

5  +  4 

MOV 

C,B 

PUSH 

B 

LXI 

H.MATRIX+i 

INX 

H 

CALL 

CODOUT 

DCR 

C 

JNZ 

DLi 

CALL 

CROUT 

POP 

B 

MVI 

B,4 

LXI 

H.KATRIX+1 

PUSH 

B 

LXI 

D,MATLEN 

DAD 

D 

PUSH 

H 

INX 

H 

MOV 

A,M 

CALL 

.  BYTE 

CALL 

BLANK 

DCR 

C 

JNZ 

DL3 

CALL 

CROUT 

POP 

H 

POP 

B 

DCR 

B 

JNZ 

DL2 

NOP 

*        *  'CALL  C 

NOP 

NOP 

SET 

LHLD 

BUFADR 

LXI 

D,li 

DAD 

D 

SHLD 

BUFPTR 

LXI 

H.MATRIX+i 

MOV 

A,M 

CPI 

4 
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ADDR  Bl  B2  B3  E  LINE   LABEL      OPCD   OPERAND 
385B  CA  S3  37    1640  JZ     CUE1     ♦  GO  BACK  TO  INPUT  LOOP 


385E 

E5 

1650 

PUSH 

H 

385F 

11 

7C 

01 

1660 

LXI 

D,MATLENM 

3862 

EB 

1670 

XCHG 

3863 

19 

1680 

DAD 

D 

3864 

7E 

1690 

MOV 

ArM 

3865 

47 

1700 

MOV 

3. A  . 

3866 

B7 

1710 

ORA 

A 

3867 

CA 

98 

38 

1720 

JZ 

ENDLP 

386A 

EB 

1730 

XCHG 

386B 

CD 

9D 

33 

1740 

CALL 

CODOUT 

386E 

2A 

DF 

36 

1750 

LHLD 

BUFPTR 

3871 

C3 

7D 

38 

1760 

JMP 

PHLP3 

3874 

CD 

Dl 

38 

1770  PHLP2 

CALL 

BLANK 

3877 

CD 

Dl 

38 

1780 

CALL 

BLANK 

387A 

CD 

Dl 

38 

1790 

CALL 

BLANK 

387D 

0E 

09 

1800  PHLP3 

MVI 

C,9 

387F 

CD 

Dl 

33 

1810  FRLOOP 

CALL 

BLANK 

3882 

7E 

1820 

MOV 

A,M 

3883 

CD 

BD 

38 

i830 

CALL 

BYTE 

3336 

23 

1840 

INX 

H 

•3387 

0D 

1850 

DCR 

C 

3888 

C2 

7F 

38 

1860 

JNZ 

FRLOOP 

388B 

CD 

D6 

33 

1370 

CALL 

CROUT 

388E 

08 

iaao 

DCR 

B 

388F 

C2 

74 

38 

1890 

JNZ 

PHLP2 

3892 

22 

DF 

36 

1900 

SHLD 

BUFPTR 

3895 

00 

1910 

NOP 

3896 

0  0 

1920 

NOP 

3897 

00 

1930 

NOP 

3898 

Ei 

1940  ENDLP 

POP 

H 

3899 

23 

1950 

INX 

H 

389A 

C3 

58 

38 

1960 

JMP 

PHLOOP 

389D 

1970  * 

389D 

19  8  0  *   OUTPUT 

PHONEME  CODE  OF  C 

389D 

7E 

1990  CODOUT 

MOV 

A,M 

389E 

87 

2000 

ADD 

A 

389F 

EB 

2010 

XCHG 

38A0 

2A 

0A 

20 

2020 

LHLD 

PVTAB 

38A3 

85 

2030 

ADD 

L 

38A4 

6F 

2040 

MOV 

L,A 

38A5 

7C 

2050 

MOV 

A,H 

38A6 

CE 

00 

2060 

AC  I 

0 

38A8 

67 

2070 

MOV 

H,A 

38A9 

7E 

2080 

MOV 

A,M 

3  BAA 

CD 

D8 

38 

2090 

CALL 

CHROUT 

38AD 

23 

2100 

INX 

H 

33AE 

7E 

2110 

MOV 

A,M 

38AF 

37 

2120 

ORA 

A 

3d30 

C2 

B5 

38 

2130 

JNZ 

S  +  5 

38B3 

3E 

20 

2140 

MVI 

A,  '  ' 

38B5 

CD 

D3 

33 

2150 

CALL 

CHRCUT 

38B8 

CD 

Dl 

38 

2160         , 

CALL 

BLANK 

38BB 

EB 

217  0 

XCHG 

3  8BC 

C9 

2180 

RET 

3dBD 

2190  * 

COLUMN 


38BD  2200  *   THE  FOLLOWING  ROUTINES  ARE  USED  ONLY  BY 
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ADDR  Bx  B2  33  £  LINE   LABEL      OPCD   OPERAND 


3SBD 

2210 

* 

LOCAL  CALLS, 

NOT  BY  CSRl 

33BD  F5 

2220 

BYTE 

PUSH 

PSW 

*  OUTPUT  (A)  AS  2  HEX  DIGITS 

33BE  OF 

2230 

RRC 

3SBF  OF 

2240 

RRC 

33C0  OF 

2250 

RRC 

33C1  OF 

2260 

RRC 

33C2  CD 

C6 

33 

2270 

CALL 

HEXO 

* 

3dC5  Fx 

2280 

POP 

PSW 

38C6  E6 

OF 

2290 

HEXO 

AN  I 

OFH 

*  MASK  OFF  UPPER  HALF 

38C3  C6 

90 

2300 

ADI 

90H 

38CA  27 

2310 

DAA 

38CB  CE 

40 

2320 

AC  I 

40H 

33CD  27 

2330 

DAA 

3  3CE  C3 

D8 

38 

2340 

JMP 

CHROUT 

*  OUTPUT  HEX  DIGIT  i    TAKE  LA 

38D1 

23S0 

# 

38D1  3E 

20 

2360 

BLANK 

MVI 

A,  '   ' 

33D3  C3 

D3 

33 

2370 

JMP 

CHROUT 

*  OUTPUT  A  SPACE 

38D6 

2380 

* 

38D6  3E 

OD 

2390 

CROUT 

MVI 

A,0DH 

*  OUTPUT  Cfl, (LF) 

38D3 

2400 

* 

33D8 

2410 

* 

CHAR 

OUTPUT 

(CALLED  TC 

OUTPUT  (A) ) 

33D8 

2420 

* 

REDEFINE  AS 

NEEDED 

33D8  CD 

DC 

3d 

2430 

CHHOUT 

CALL 

TTYOUT 

*  REDEFINE  AS  NEEDED 

38DB  C9 

2440 

RET 

38DC 

24S0 

* 

33DC 

2460 

* 

TTY 

OUTPUT  HANDLER 

33DC  F5 

2470 

TTYOUT 

PUSH 

PSW 

3dDD  DB 

00 

2480 

IN 

0 

38DF  E6 

01 

2490 

ANI 

1 

33E1  CA 

DD 

38 

2S00 

JZ 

S-4 

38E4  Fi 

2S10 

POP 

psw 

38ES  D3 

01 

2S20 

OUT 

1 

38E7  FE 

OD 

2S30 

CPI 

ODH 

38E9  CO 

2S40 

RNZ 

33EA  3E 

OA 

2550 

MVI 

A.OAH 

*  LAST  CHAR  WAS  CR,  ... 

38EC  C3 

DC 

38 

2S60 

JMP 

TTYOUT 

*  ADD  A  LINE  FEED 

38EF 

2S70 

* 

38EF 

2580 

* 

33EF  OD 

2S90 

HDTX 

DB 

ODH 

38F0  46 

4S 

41 

2600 

DT 

'FEATURE  MATRIX' 

38F3  "54 

S5 

S2 

38F6  4S 

20 

4D 

3SF9  41 

54 

S2 

3SFC  49 

S3 

38FE  OD 

2610 

CB 

ODH 

33FF  04 

2620 

DB 

4 

3900 

2630 

* 

3900 

2640 

3900 

2650 

* 

3900 

2660 

* 

A  PORTION  OF 

THE  CSRl 

JUMP  TABLE  IS  DEFINED 

3900 

2670 

* 

TO  ALLOW  ACC 

ESS  TO  MISC.  CSRl  ADDRESSES 

3900 

2680 

* 

3900 

2690 

ORG 

2000H 

2000 

2700 

* 

2000 

2710 

CSRl 

DS 

3 

2003 

2720 

PLAY 

DS 

3 

2006 

2730 

BUFADR 

DS 

2 

RET 


72 


PAGE  06 

ADDR  Bi  B2  B3  E  LINE   LABEL      OPCD   OPERAND 

2008 

200A 

200C 

200C  2770  *   OTHER  CSBi  LOCATIONS  DEPENDENT  9H  LOC  OF  COMRAM 

200C 

200C 

200C 

200C 

200C 

200C 


2740 

BUFEND 

DS 

2 

27S0 

PVTAB 

DS 

2 

2760 

* 

2770 

*   OTHER 

CSRi  LOCATIONS  DEPENDEN 

2780 

COM  RAM 

EQU 

3SQ0H 

2790 

NEGEND 

ECU 

CCMRAM  +  2 

2<J00 

MATRIX 

EQU 

COMRAM  +  4 

2310 

MATLEN 

ECU 

9S 

2820 

BUFPTR 

EQU 

MATLEN*5+MATRIX 

2830 

* 
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ADDR  Bi  B2  B3  E  LINE   LABEL      OPCD   OPERAND 

2000  0010  *   PARSE 

2000  0020  * 

2000  0033  *   SECTION  1  OF  THE  CSRl  SYNTHESIS  BY  RULE  SYSTEM 

2000  0040  * 

2000  0050  *   LLOYD  RICE,   COMPUTALKER  CONSULTANTS 

2000  0060  *   VERSION  1.07    MAY  30,  1977 

2000  0070  * 

2000  0080  *   THE  ENTIRE  CSRl  SOFTWARE  SYSTEM  IS  PROVIDED 

2000  0090  *   BY  COMPUTALKER  CONSULTANTS  WITH  THE  UNDERSTANDING 

2000  0100  *   THAT  IT  MAY  BE  REPRODUCED  FOR  NON-COMMERCIAL 

2000  0110  »   PURPOSES,  PROVIDED  THAT  THE  SOURCE  IS  QUOTED. 

2000  0120  *   OTHERWISE,  ALL  COPYRIGHTS  ARE  RETAINED. 

2000  0130  *      (C)   1977,   COMPUTALKER  CONSULTANTS 

2000  0140  * 

2000  0150  •******♦** 

2000  0160  * 

2000  0170  *   ASSEMBLE  ALL  SECTIONS  TO  BEGIN  AT  THE  SAME 

2000  0180  *   STARTING  ADDRESS.   THIS  WILL  BE  THE  ADDRESS 

2000  0190  *   AT  WHICH  JO  CALL  THE  CSRl  SYSTEM 

2000  0200  * 

2000  0210  •*******«* 

2000  0220  * 

2000  0230  *   COMMON  (JUMP)  ADDRESS  REFERENCE  TABLE 

2000  0240  *   THIS  TABLE  ALLOWS  REASSEMBLING  ANY  SECTION 

2000  0250  *   WITHOUT  CHANGING  REFERENCES  IN  OTHER  SECTIONS 

2000  0260  * 

2000  0270  *   ANY  SECTION  MAY  BE  MOVED  BY  CHANGING  THE  ORG 

2000  0280  *   AT  SECTAD  (SECTION  1  IS  SLIGHTLY  DIFFERENT) . 

2000  0290  *   ALL  REFERENCES  WILL  BE  HANDLED  CORRECTLY. 

2000  0300  *   THE  COMMON  RAM  WORKSPACE  DOES  NOT  SHARE  THIS 

2000  0310  *   NICE  PROPERTY.   IT  MUST  BE  DEFINED  THE  SAME 

2000  0320  *   IN  ALL  SECTIONS. 

2000  0330  * 

2000  0340  **•*»«**•* 

2000  0350  » 

2000  0360  *   THE  PARAMETER  BUFFER  IS  DEFINED  BY  CONSTANTS  IN 

2000  0370  *   LOCATIONS  BUFADR  AND  BUFEND.   3UFADR  CONTAINS  THE 

2000  0380  *   ADDRESS  OF  THE  1ST  BYTE  OF  THE  FRAME  COUNT,  AND 

2000  0390  *   BUFEND  CONTAINS  THE  LAST  ADDRESS  AVAILABLE  AS 

2000  0400  «   BUFFER  SPACE. 

2000  0410  *   THESE  LOCATIONS  ARE  DEFINED  ONLY  IN  SECT1  SOURCE 

2000  0420  * 

2300  0430  *****•***« 

2000  3440  * 

2000  0450  *   COMMON  JUMP  ADDRESS  TABLE 

2333  0460  * 

2000  0470  COMJMP      EQU    $ 

2000  0480  * 

2000  C3  3A  20    3490  JMP    CSRl 

2003  0500  PLAY        DS     3 

2006  00  39  0510  BUFADR      DW     COMJMP+1900H  *  1ST  BUFFER  LOC  AVAIL 

2008  FF  5F  0520  BUFEND      DW     COMJMP+3FFFH  *  LAST  LOC  AVAILABLE 

200A  C5  22  0530  DW     PVTAB 

200C  C3  AC  22    0540  JMP    MATPAK 

200F  C3  9A  22    0550  JMP    MATERR 

2012  0560  RULES       DS     3 

2015  0570  SETDUR      DS     3 
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ADDR  Bi  B2  B3  E  LINE   LABEL      OPCD   OPERAND 

2018 

201B 
201E 
2021 
2024 
20  3A 
203A 
203A 
203A 
203A 
203A 
203A 
203A 
3500 
3500 
3500 
3500 
3500 
3502 
3504 
3504 
3504 
3563 
35C2 
3621 
3680 
36DF 
36DF 
36DF 
36DF 
36DF 
36E0 
36E2 
36E3 
36E5 
36E5 
36E5 
36E5 
36E5 
36E5 
203A 
20  3A 
203A 
203A 
203A 
203A 
2Q3A 
203A 
203A 
2Q3A 
20  3A 
203A 
20  3A 
203A 
203A 
20  3A 
203A 


0580 

RULES  3 

DS 

i 

0590 

GENFO 

DS 

3 

0600 

CLRBUF 

DS 

3 

0610 

GENPRM 

DS 

3 

0620 

DUMMY 

DS 

22 

0630 

* 

0640 

SECTAD 

EQU 

3 

0650 

* 

0660 

********** 

0670 

* 

0680 

*   COMRAM 

ORIGEN 

DEFINITION 

0690 

* 

0700 

ORG 

COMJMP+1500H 

0710 

COMRAM 

EQU 

S 

0720 

* 

0730 

*   CSRl  SYSTEM  RAM  SPACE  DEPI 

0740 

* 

0750 

MATPTR 

DS 

2 

0760 

NEGEND 

DS 

2 

0770 

MATRIX 

EQU 

5 

0780 

MATLEN 

EQU 

95 

0790 

PHCODE 

DS 

MATLEN 

0800 

FEATA 

DS 

MATLEN 

0810 

FEATB 

D3 

MATLEN 

0820 

STRES 

DS 

MATLEN 

0830 

DUR 

DS 

MATLEN 

0840 

MATEND 

EQU 

5 

0850 

* 

0860 

*   PARSE 

(LOCAL) 

RAM  WORKS PAC 

0870 

* 

0880 

CHAR 

DS 

1 

0890 

PHON 

DS 

2 

0900 

NUM 

DS 

1 

0910 

INPTR 

DS 

2 

0920 

* 

0930 

********** 

0940 

* 

0950 

*   CSRl  SYSTEM  MAIN  ROUTINE 

0960 

* 

0970 

ORG 

SECTAD 

0980 

* 

099Q 

*   DEFINE 

PHONEME  CODES  FOR  P 

1000 

* 

1010 

CPAUSE 

EQU 

2 

1020 

CTERM 

EQU 

4 

1030 

CAX 

EQU 

15 

1040 

CEL 

EQU 

29 

1050 

CEM 

EQU 

30 

1060 

CEN 

EQU 

31 

1070 

CL 

EQU 

33 

1080 

CM 

EQU 

36 

1090 

CN 

EQU 

37 

1100 

CT 

EQU 

40 

1110 

CD 

EQU 

44 

1120 

CSH 

EQU 

51 

1130 

CZH 

EQU 

55 

1140 

CCH 

EQU 

56 
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ADDR   31    32    B3    E    LINE      LABEL 


OPCD      OPERAND 


233A 

1150 

CJH 

EQU 

57 

20  3A 

1160 

* 

20  3A 

1170 

*   DEFINE 

FEATURE  LABELS 

203A 

1180 

* 

20  3A 

1190 

VOWEL 

EQU 

80H 

203A 

1200 

CONS 

EQU 

40H 

203A 

1210 

FRONT 

EQU 

20H 

203A 

1220 

DIPHTH 

EQU 

10H 

203A 

1230 

WDBNO 

EQU 

4 

203A 

1240 

PHBND 

EQU 

2 

2  0  3A 

1250 

IGNORE 

EQU 

1 

203A 

1260 

STOP 

EQU 

80H 

2  0  3A 

1270 

VOICE 

EQU 

40H 

233A 

1230 

PLOS 

EQU 

20H 

203A 

1290 

PLOSA 

EQU 

10H 

203A 

1300 

FRIC 

EQU 

8 

2  0  3A 

1310 

LIQUID 

EQU 

4 

20JA 

1320 

NASAL 

EQU 

2 

20  3  A 

1330 

DENTAL 

EQU 

1 

203A 

1340 

* 

203A 

1350 

*   DEFINE 

INPUT 

STRING  ' 

203A 

1360 

• 

203A 

1370 

TERM 

■  EQU 

0DH 

2Q3A 

1380 

* 

20  3A 

1390 

203A 

1400 

* 

203A 

1410 

*   CSR1  MAIN  LOOP 

2  0  3A 

1420 

* 

20  3A 

C5 

14  30 

CSR1 

PUSH 

3 

2033 

D5 

1440 

PUSH 

D 

203C 

CD 

63 

20 

1450 

CALL 

PARSE 

203F 

C2 

60 

20 

1460 

JNZ 

CSERR 

2042 

00 

1470 

NOP 

2043 

0  0 

1430 

NOP 

2044 

00 

1490 

NOP 

2045 

CD 

12 

20 

1500 

CALL 

RULES 

2043 

C2 

60 

20 

1510 

JNZ 

CSERR 

2043 

CO 

1520 

NOP 

204C 

CO 

1530 

NOP 

204D 

:o 

1540 

NOP 

204E 

CD 

13 

20 

1550 

CALL 

GENF0 

2051 

C2 

60 

20 

1560 

JNZ 

CSERR 

2054 

00 

1570 

HOP 

205  5 

00 

1530 

NOP 

2056 

03 

1590 

NOP 

2057 

CD 

21 

20- 

1500 

CALL 

GENPRM 

203A 

:o 

1510 

NOP 

2053 

0  0 

1620 

NO? 

2  0  5C 

00 

1630 

NOP 

205D 

CD 

03 

20 

1640 

CALL 

PLAY 

2060 

Dl 

1650 

CSERR 

POP 

D 

2061 

CI 

1660 

POP 

3 

2062 

C9 

1670 

RET 

2063 

1630 

• 

2063 

1690 

* 

2063 

17C0 

2063 

1710 

# 

*  SAVE    BC,DE 

*  PARSE    INPUT    &    SET    UP    MATRIX 

*  RETURN    IF    ERROR 


*  APPLY    RULES    TO    MATRIX 

*  RETURN    IF    ERROR 


GENERATE    F0    PARAMETER 
RETURN    IF    ERROR 


*  GENERATE  OTHER  PARAMETERS 


*  PLAYBACK  TO  SYNTHESIZER 
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ADDR  Bi  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


2063 

1720 

*   PARSE 

CODE 

2063 

1730 

* 

2063 

1740 

********** 

2063 

1750 

* 

2063 

22 

E3 

36 

1760 

PARSE 

SHLD 

INPTR     * 

2066 

21 

04 

35 

1770 

LXI 

H,  MATRIX 

2069 

22 

oa 

35 

1780 

SHLD 

MATPTR    * 

206C 

AF 

1790 

XRA 

A 

206D 

32 

E2 

36 

1800 

STA 

NUM 

2070 

3E 

04 

1810 

MVI 

A,CTERM   * 

2072 

CD 

7A 

22 

1820 

CALL 

MATSET    * 

2075 

3E 

02 

1330 

MVI 

A.CPAUSE 

2077 

CD 

7A 

22 

1840 

CALL 

MATSET    * 

207A 

CD 

BD 

21 

1850 

PARSA 

CALL 

GET 

207D 

FE 

0D 

1860 

PARSB 

CPI 

TERM      * 

207F 

3E 

00 

1870 

MVI 

a, a     * 

2081 

32 

E2 

36 

1880 

STA 

NUM 

2084 

CA 

3F 

21 

1890 

JZ 

PINUP     * 

2037 

67 

1900 

MOV 

H,A 

2088 

5F 

1910 

MOV 

L,A 

2089 

22 

E0 

36 

1920 

SHLD 

PHON      * 

208C 

4F 

1930 

MOV 

C,A       * 

208D 

7A 

1940 

MOV 

A,D       * 

208E 

17 

1950 

RAL 

208F 

DA 

A6 

20 

1960 

JC 

VOWELA    * 

2092 

17 

1970 

RAL 

2093 

DA 

CD 

20 

1980 

JC 

CONSB     * 

2096 

17 

1990 

RAL 

2097 

DA 

18 

21 

2000 

JC 

CONSA     * 

209A 

17 

2010 

RAL 

209B 

DA 

33 

21 

2020 

JC 

COMMT     * 

209E 

E6 

CO 

2030 

ANI 

0C0H 

20AO 

C2 

20 

21 

2040 

JNZ 

PLKPA     * 

20A3 

C3 

5F 

21 

2050 

JMP 

ERROR     * 

20A6 

2060 

* 

20A6 

CD 

Bl 

21 

2070 

VDWELA 

CALL 

PUSHP     * 

20A9 

7A 

2080 

MOV 

A,D 

20AA 

IF 

2090 

RAR 

20AB 

D2 

5F 

21 

2100 

JNC 

ERROR     * 

20AE 

CD 

Bl 

21 

2110 

CALL 

PUSHP     * 

20B1 

7A 

2120 

GETDIG 

MOV 

A,D       * 

20B2 

IF 

2130 

RAR 

20B3 

IF 

2140 

RAR 

20B4 

D2 

DA 

20 

2150 

JNC 

LKPNG     * 

20B7 

JA 

OF 

36 

2160 

LDA 

CHAR      * 

20BA 

D6 

30 

2170 

SOI 

'C 

20BC 

47 

2180 

MOV 

B,A       * 

20BD 

79 

2190 

MOV 

A,C 

20BE 

87 

2200 

ADD 

A 

20BF 

37 

2210 

ADD 

A 

20C0 

31 

2220 

ADD 

c 

20C1 

37 

2230 

ADD 

A          * 

2  0C2 

30 

2240 

ADD 

B          « 

2GC3 

4F 

2250 

MOV 

C,A       * 

20C4 

J2 

E2 

36 

2260 

STA 

NUM       * 

20C7 

CD 

BD 

21 

2273 

CALL 

GET 

20CA 

C3 

Bl 

20 

2280 

JMP 

GETDIG    * 

SAVE  INPUT  TEXT  POINTER 
INITIALIZE  PHONEME  MATRIX 


FRONT  MATRIX  TERMINATOR 
NO  ERROR  TEST  NEEDED 

SET  UP  INITIAL  PAUSE 

END  OF  INPUT? 

DON'T    WIPE    THE    Z    FLAG 

END,    CLOSE    THE    MATRIX 


CLEAR    PHON, 

&    C    FOR    HH    COUNTER 

GET    PARSER    FLAGS    INTO    A 

VOWEL   CLASS    A 

CONSONANT  CLASS  3 

CONSONANT  CLASS  A 

COMMENT  DELIMITER 

SINGLE  CHAR  SYMBOL 
BAD  INPUT 

PUSH  VOWEL  CHAR  A,  GET  CHAR  3 


IF  NOT  VOWEL  3,  IT'S  AN  ERROR 

PUSH  CHAR  3,  GET  NEXT 

SEE  IF  VOWEL  IS  FOLLOWED  3Y  INT 


NOT  A  DIGIT,  LOOKUP  THE  VOWEL 
ACCUMULATE  STRESS  VALUE  IN  C 

SAVE  NEW  DIGIT  IN  B 


10  TIMES  PREVIOUS  VALUE 
PLUS  NEW  DIGIT 

*  INTO  C 

*  AND  INTO  NUM 

*  i  SEE  IF  THERE'S  ANOTHER  DIGIT 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


20CD 

2290 

* 

2QCD 

CD 

Bl 

21 

2300 

CONSB 

CALL 

PUSHP 

2QD0 

FE 

43 

2310 

CPI 

'H' 

2QD2 

CA 

FO 

20 

2320 

JZ 

GETH 

20D5 

FE 

58 

2330 

CPI 

'X' 

20D7 

CA 

20 

21 

2340 

JZ 

PLKPA 

20DA 

CD 

C3 

22 

2350 

LKPNG 

CALL 

LOOKUP 

20DD 

CO 

2360 

RNZ 

* 

20DE 

JA 

DF 

36 

2370 

PARSBG 

LDA 

CHAR 

20Ei 

CD 

CA 

21 

2380 

CALL 

GETFLG 

20E4 

C3 

7D 

20 

2390 

JMP 

PARSB 

2QE7 

2400 

* 

2QE7 

3C 

2410 

INCRH 

INR 

C 

20ES 

CD 

BD 

21 

2420 

CALL 

GET 

20E3 

FE 

43 

2430 

CPI 

'H' 

23ED 

C2 

03 

21 

2440 

JNZ 

LKPH 

20F0 

CD 

3D 

21 

2450 

GETH 

CALL 

GET 

20F3 

FE 

43 

2460 

CPI 

'H' 

20F5 

CA 

E7 

20 

2470 

JZ 

INCRH 

20F8 

JA 

El 

36 

2430 

LDA 

PKON+1 

2QF3 

32 

EO 

36 

2490 

STA 

PHON 

2QFE 

JE 

48 

2500 

MVI 

A,  'H' 

2130 

3  2 

El 

36 

2510 

STA 

PHON+1 

2103 

CD 

03 

22 

2523 

LKPH 

CALL 

LOOKUP 

2136 

CO 

2533 

RNZ 

2137 

79 

2543 

MOV 

A,C 

2108 

37 

2553 

ORA 

A 

2139 

CA 

DE 

20 

2563 

JZ 

PARSBG 

210C 

3E 

48 

2570 

MVI 

A,  'H' 

210E 

12 

EO 

36 

2580 

STA 

PHON 

2111 

32 

El 

36 

2590 

STA 

PHON+1 

2114 

OD 

2600 

DCR 

C 

2115 

Ci 

03 

21 

2610 

JMP 

LKPH 

2113 

2620 

* 

2118 

CD 

Bl 

21 

2630 

CONSA 

CALL 

PUSHP 

211B 

FE 

48 

2640 

CPI 

'H' 

211D 

C2 

5F 

21 

2650 

JNZ 

ERROR 

2120 

3A 

El 

36 

2660 

PLKPA 

LDA 

PHON+1 

2123 

32 

EO 

16 

2670 

STA 

PHON 

2126 

3A 

DF 

36 

2683 

LDA 

CHAR 

2129 

32 

El 

36 

2690 

STA 

PHON+1 

212C 

CD 

38 

22 

2700 

CALL 

LOOKUP 

212F 

CO 

2710 

RNZ 

2133 

C3 

7A 

20 

2720 

JMP 

PARSA 

2133 

2730 

* 

2133 

CD 

3D 

21 

2740 

COMMT 

CALL 

GET 

2136 

7A 

2750 

MOV 

A,D 

2137 

E6 

10 

2760 

AH  I 

10H 

2139 

CA 

33 

21 

2770 

JZ 

COMMT 

213C 

a 

7A 

20 

2780 

JMP 

PARSA 

213F 

2790 

# 

213F 

AF 

2800 

FINUP 

XRA 

A 

2140 

32 

E2 

36 

2810 

STA 

NUM 

2143 

3E 

02 

2820 

MVI 

A,CPAU 

2145 

CD 

7A 

22 

2830 

CALL 

MATSET 

2148 

CO 

2840 

RNZ 

2149 

3E 

04 

2850 

MVI 

A.CTER, 

*  PUSH  CONS  CHAR,  GET  NEXT 

*  IS  IT  FOLLOWED  BY  AN  "H"? 

*  YES 

*  IS  IT  FOLLOWED  BY  AN  'X' 

*  YES,  PUSH  S.  LOOK  IT  UP 

*  NO,  LOOKUP,  DON'T  GET  AGAIN 

*  RETURN  IF  ERROR 

*  GET  CHAR  FLAGS  INTO  D  AGAIN 


*  INCREMENT  THE  "H"  COUNTER 


*  CHAR  IS  NOT  H,  LOOKUP  LAST  HH 


WE  HAVE  ANOTHER  'H' 

END  OF  THE  STRING  OF  'H'S 


*  PUSH  AN  'H'  INTO  PHON 

*  LOOK  IT  UP 


*  ALL  KH'S  DONE,  CHAR  IS  NEXT 

*  FORCE  PHON  TO  'HH' 

*  AND  LOOK  IT  UP 

*  PUSH  CONS  CHAR,  GET  NEXT 

*  CLASS  A  CONS  MUST  HAVE  'H' 

*  PUSH  IT  INTO  PHON 


NEXT 


*  LOOK  IT  UP 


GET  NEXT  INPUT 


*  GET  ANOTHER  CHAR 


*  IGNORE  ALL  UNTIL  NEXT  CMMT  DELI 


*  PUT  FINAL  PAUSE  IN  MATRIX 
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ADDR    Bi    B2    B3    E    LINE      LABEL 


OPCD      OPERAND 


214B    CD 

7A 

22 

2860 

CALL 

MAT SET 

214E    CO 

2870 

RNZ 

214F    2A 

00 

35 

2880 

LHLD 

MATPTR 

2152    7C 

2890 

MOV 

A,H 

2153    2F 

2900 

CMA 

2154    67 

2910 

MOV 

H,A 

2155    7D 

2920 

MOV 

A,L 

2156    2F 

2930 

CMA 

2157    6F 

2940 

MOV 

L,A 

2158    23 

2950 

INX 

H 

2159    23 

2960 

INX 

H 

215A    22 

02 

35 

2970 

SHLD 

NEGEND 

215D    AF 

2980 

XRA 

A 

215E   C9 

2990 

RET 

215F 

3000    * 

215F 

3010    *      SYNTAX 

ERROR 

MESSAGE    R 

215F 

3020    * 

215F    21 

80 

36 

30  30    ERROR 

LXI 

H,DUR 

2162    11 

9F 

21 

3040 

LXI 

D.ERTX1 

2165    CD 

98 

21 

3050 

CALL 

MOVCH 

2168   C2 

65 

21 

3060 

JNZ 

S-3 

216B    36 

OD 

3070 

MVI 

M,0DH 

216D    11 

El 

36 

3080 

LXI 

D.PHON+1 

2170    1A 

3090 

LDAX 

D 

2171    47 

3100 

MOV 

3, A 

2172    IB 

3110 

DCX 

D 

2173    1A 

3120 

LDAX 

D 

2174    BO 

3130 

ORA 

B 

2175    CA 

92 

21 

3140 

JZ 

NZRET 

2178    11 

AB 

21 

3150 

LXI 

D.ERTX2 

217B    CD 

98 

21 

3160 

CALL 

MOVCH 

2i7E  c: 

7B 

21 

3170 

JNZ 

S-3 

2181    11 

EO 

36 

3180 

LXI 

D,PHON 

2184    CD 

98 

21 

3190 

CALL 

MOVCH 

2187    CD 

98 

21 

3200 

CALL 

MOVCH 

218A    CD 

98 

21 

3210 

CALL 

MOVCH 

218D    36 

22 

3220 

MVI 

M,  '"" 

218F    23 

3230 

INX 

H 

2190    36 

OD 

3240 

MVI 

M,0DH 

2192    21 

30 

36 

3250    NZRET 

LXI 

H,DUR 

2195    F6 

FF 

3260 

ORI 

255 

2197    C9 

3270 

RET 

2198 

3280    * 

2198    U 

3290    MOVCH 

LDAX 

D 

2199    13 

3300 

INX 

D 

219A    B7 

3310 

ORA 

A 

219B    C8 

3320 

RZ 

219C    77 

3330 

•    MOV 

M,A 

219D    23 

3340 

INX 

H 

219E    C9 

3350 

RET 

219F 

3360    * 

219F    49 

4E 

50 

3370    ERTX1 

DT 

•INPUT    E 

21A2    55 

54 

20 

21A5    45 

52 

52 

21A8    4F 

52 

21AA    00 

3380 

DB 

0 

21AB    20 

41 

54 

3390    ERTX2 

DT 

1    AT    "• 

*   TERMINATE    MATRIX 


*    -ADDRESS    OF   TERM    PHON 


*    USE    DURATION    ARRAY    FOR   MSG 


*    MOVE    1ST    PART   OF    MSG 


TERMINATE    IT 

SEE    IF    ANYTHING    IN    PHON 


NO,    SET   NON-0    &    RETURN 
YES,    ADD    MORE    TO   MSG 


*    MOVE    NON-0    PARTS    OP    PHON    -    CHA 


*    TERMINATE    THE    MSG 
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?AGB   07" 
ADDS   Bl    62   B3-E    LINE      LABEL  OPCD      OPERAND 


21AE 

20 

22 

2133 

03 

3400 

DB 

3 

2131 

3410 

• 

2131 

3420 

***#«+**** 

2131 

3430 

* 

2131 

3440 

ft 

PAP.S3    SUBROUTINES 

2131 

3453 

* 

2131 

3A 

El 

36 

3460 

PUSH? 

LDA 

PHON+1 

2134 

32 

E3 

36 

3470 

STA 

?HON 

2137 

3A 

OF 

36 

3433 

LDA 

CHAR 

213A 

32 

El 

36 

3490 

STA 

PHON+i 

21BD 

3500 

* 

213D 

2A 

E3 

36 

3510 

GET 

LHLD 

INPTP 

21C0 

7E 

3520 

MOV 

A,M 

ft 

GET    NEXT    INPUT   CHAR 

21C1 

E6 

7F 

3530 

AN  I 

7FH 

21C3 

32 

DF 

36 

3540 

STA 

CHAR 

* 

SAVE    IT 

21C6 

23 

3553 

INX 

H 

* 

AND    BUMP    INPUT    POINTER 

21C7 

22 

£3 

36 

3563 

SHLD 

INPTF 

21CA 

Co 

3573 

GETFLG 

PUSH 

B 

21C3 

4F 

3580 

MOV 

C,A 

* 

KEEP   CHAR    IN    C    FOR   NOW 

21CC 

E6 

IF 

3590 

ANI 

1FH 

* 

KEEP    5    LS    BITS 

21CE 

5F 

3633 

MOV 

ErA 

21CF 

21 

E7 

21 

3610 

LXI 

H,PARFLQ 

ft 

ADDR   OF    FLAGS    TABLE 

21D2 

16 

C3 

3620 

MVI 

0,3 

2104 

19 

3630 

DAD 

D 

2105 

46 

3640 

MOV 

B,M 

* 

GET    FLAGS    WORD    IN    B 

21D5 

79 

3653 

MOV 

A,C 

* 

GET   WHOLE    CHAR    BACK 

21D7 

'J   ' 

3660 

RLC 

2103 

G7 

3673 

RLC 

21D9 

37 

3680 

RLC 

21DA 

E6 

33 

3690 

ANI 

3 

* 

KEEP    CHAR    BITS    5 , 6    IN 

210C 

5P 

3733 

MOV 

E,A 

* 

OFFSET    TO   .-.ASK   TABLE 

21DD 

21 

37 

22 

3713 

LXI 

H.CHMASX 

21  EC 

19 

3720 

DAD 

D 

21S1 

Tr 

3730 

MOV 

A,M 

* 

GET    MASK    BITS    IN    A 

21E2 

A3 

3743 

ANA 

B 

21E3 

57 

3750 

MOV 

D,A 

• 

RETURN    FLAGS    IN    D 

21E4 

79 

3763 

MOV 

A,C 

* 

RETURN    CHAP    IN    A 

21E5 

Ci 

3770 

POP 

3 

21E6 

C9 

3780 

RET 

21E7 

3790 

♦ 

21E7 

3803 

* 

PARSER 

FLAGS 

TABLE 

21E7 

3813 

<• 

21E7 

34 

3823 

7ARFLG 

DB 

34H 

* 

a 

SPACE 

21E3 

91 

3833 

DB 

31H 

» 

A 

! 

21E9 

33 

3843 

DB 

38H 

* 

B 

" 

21EA 

23 

3853 

DB 

20H 

• 

c 

t 

21E3 

43 

386C 

DB 

40H 

* 

D 

S 

21EC 

31 

3873 

DB 

81H 

* 

E 

% 

21ED 

38 

3880 

DB 

08H 

* 

P 

4 

21EE 

4  3 

3890 

DB 

4GH 

* 

G 

21EF 

21 

39  3  3 

DB 

21H 

* 

H 

( 

21P3 

31 

3910 

DB 

81H 

» 

t 

) 

21F1 

33 

3920 

DB 

3CH 

* 

j 

* 

21F2 

43 

3933 

DB 

40H 

* 

K 

+ 

21P3 

45 

3943 

DB 

45H 

* 

L 

21F4 

3D 

3953 

DB 

3DH 

* 

M 

~ 

SO 
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ADDR  81  B2  3  3  E  HN$   ISABEL 


OPCD   OPERAND 


21F5 

21F6 

21F7 

21F8 

21F9 

21FA 

21FB 

21FC 

21FD 

21FE 

21FF 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2207 

2207 

2207 

220S 

2209 

220A 

220B 

220B 

2208 

220B 

220B 

220C 

220F 

2210 

2211 

2214 

2215 

2216 

2217 

2219 

221C 

221D 

221E 

221F 

2222 

2223 

2224 

2227 

2228 

2229 

222C 

222D 

2230 

2230 

2232 

223J 

2234 

2236 


45 
85 
OA 
3A 
43 
42 
42 
33 
OA 
43 
03 
43 
44 
04 
00 
00 

qo 

04 


00 
16 
E9 
00 


C5 

2A  EC 

7D 

87 

CA  16 

6C 

67 

EB 

OE  40 

21  C5  22 

3C 

23 

C2  27  22 

7E 

BE 

CA  30  22 

23 

OD 

C2  1C  22 

Ci 

C3  5F  21 

3E  3A 

85 
OF 

FE  ID 
CA  50  22 


22 


3963 

;97d 

-980 

399C 

4000 

4010 

402C 

4330 

4040 

4*150 

406C 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140  • 

4150  *   PARSER  FLAGS  BIT  MASKS 

4160  * 

4170  CHMASK 

4180 

4190 

4200 

421G  * 

4220  * 

4230 

4240  * 

4250  LOOKUP 


□  B 
DS 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


15H 

85H 

OAH 

OAH 

4iH 

42H 

42H 

83H 

OAH 

43H 

03H 

4  3H 

44H 

04H 

0 

0 

0 

04H 


N,. 

0,/ 
P,0 
Q,i 
R,2 

3,3 
T,4 
0,5 
V,6 
W,7 
X,8 
Y,9 


DB 
DB 
DB 
DB 


0 

16H 
0E9H 
0 


LOOKUP  SUBROUTINE 


4260 

4270 

4230 

4290 

4300 

4310 

4  320  NCHP 

4330 

4340 

4350  CHECK 

4360 

4370 

4380 

4390 

4403 

4410 

4420  PlBAD 

4430 

4440 

4450 

4460 

4470  » 

4480  MATCH 

4490 

4500 

4510 

4520 


PUSH 

LHLD 

MOV 

ORA 

JZ 

MOV 

MOV 

XCHG 

MVI 

LXI 

MOV 

CMP 

INX 

JNZ 

MOV 

CMP 

J3 

INX 

DCR 

JNZ 

POP 

JMP 


B 

PHCN 

A,L 

A 

NCHP 

L.H 

H,A 


BACK  SLASH, < 

UP  ARROW, > 
LEFT  ARROW, 


*  CONTROL  CHA",  CLEAR  FLAGS 

*  PUNCTUATION,  USE  BITS  4,2,1 

*  UPCER  CASE,  USE  BITS  7,6,5.  1,0 

*  L«i«/ER  CASE,  CLEAR  FLAGS 


*  2ND  HALF  OF  ?HON  INTO  : 

*  &  1ST  HALF  IN  A  4  L 

*  IF  1ST  1/2  -0,  MAKE  IT  THE  2ND 

*  INTERCHANGE  8  S  L 


C64 

H , PVTAB 

A,D 

M 

H 

PlBAD 

A,Z 

M 

MATCH 

H 

C 

CHECK 

3 

ERROR 


A, -PVTAB 
L 


MVI 

ADD 

RRC 

CPI    CEL 

JZ     INSAXL 


*  NON  0  PART  IN  D,  2ND  1/2  IN  E 

*  SEARCH  VALID.  TABLE  FOR  (PHON) 

*  1ST  1/2  FOUND  .  TRY  2ND  1/2 

*  NOT  THIS  ONE 

*  (PHON)  NOT  IN  VALID.  TABLE 
-1%256   *  (-PVTAB-l)MOD  256 


*  CHECK  NOW  FOR  DUMMY  CODES 

*  EL  BECOMES  AX,L 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


2239  FE 

22  3B  CA 
22JE  FE 

2240  CA 
2243  FE 
2245  CA 
2248  FE 
224A  CA 
224D  C3 
2250 
2250  06 
2252  C3 
2255  06 
2257  C3 
225A  06 
225C  3E 
225E  C3 
2261  3E 
2263  06 
2265  C3 
2268  3E 
226A  06 
226C  CD 
226F  3E 
2271  32 

2274  78 

2275  CD 

2278  CI 

2279  C9 
227A 
227A 
227A  2A 
227D  11 

2280  19 

2281  DA 

2234  C5 

2235  CD 
2288  09 
2239  3A 
223C  77 
228D  09 
223E  36 

2290  CI 

2291  2A 

2294  23 

2295  22 

2298  AF 

2299  C9 
229A 
229A  21 
229D  F6 
229F  C9 
22A0 
22A0  4D 
22A3  52 
22A6  20 
22A9  4C 


IE 

55  22 

IF 

5A  22 

38 

61  22 

39 

68  22 

75  22 

21 

5C  22 

24 

5C  22 

25 

OF 

6C  22 

28 

33 

6C  22 

2C 

37 

7A  22 

00 

E2  36 

7A  22 


00  35 

9C  CA 

9A  22 

AC  22 

E2  36 

3Q 

00  35 

30  35 


A0  22 
FF 


41  54 
49  58 
46  55 
4C 


4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4730 

4790 

4800 

4810 

4320 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 


INSAXL 

INSAXM 

INSAXN 
INS1 

INSTSH 

INSDZH 
INS  2 

PUTMAT 

* 
MATSET 


MATERR 


MERTX 


CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

JMP 

MVI 
JMP 
MVI 

JMP 

MVI 

MVI 

JMP 

MVI 

MVI 

JMP 

MVI 

MVI 

CALL 

MVI 

STA 

MOV 

CALL 

POP 

RET 


LHLD 

LXI 

DAD 

JC 

PUSH 

CALL 

DAD 

LDA 

MOV 

DAD 

MVI 

POP 

LHLD 

INX 

SHLD 

XRA 

RET 

LXI 
ORI 
RET 


CEM 

INSAXM 

CEN 

INSAXN 

CCH 

INSTSH 

CJH 

INSDZH 

PUTMAT 

B,CL 

INS1 

B,CM 

INSi 

B,CN 

A,CAX 

INS2 

A,CT 

B.CSH 

INS2 

A, CD 

B,CZH 

MATSET 

A,0 

NUM 

A,B 

MATSET 

B 


EM  BECOMES  AX,M 

EN  BECOMES  AX,N 

CH  BECOMES  T,SH 

JH  BECOMES  D,ZH 

ELSE  PUT  IT  IN  THE  MATRIX 


PUT  1ST  PHON  IN  MATRIX 

CLEAR  STRESS  VALUE  FOR  2ND  PHO 

AND  PUT  IT  IN  MATRIX 


MATPTR    *  TEST  COLUMN  POINTER 

D , -MATRI X-MATLEN- 1 

D 

MATRIX  OVERFLOW 

SAVE  S 

PUT  NEW  CODE  INTO  MATRIX 


MATERR 

B 

MATPAK 

B 

NUM 

M,A 

B 

H,Q 

B 

MATPTR 

H 

MATPTR 

A 


H, MERTX 
255 


*  GET  STRESS  VALUE  FROM  NUM 


DURATION  VALUES 
RESTORE  B 


BUMP  THE  COLUMN  PTR 
SET  ZERO  CONDITION 


DT 


•MATRIX  FULL' 
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ADDR  31  32  B3  E  LINE   LABEL 


OPCD   OPERAND 


22AB  0D 

5070 

DB 

ODH 

2  2  AC 

5080 

• 

2  2  AC 

5090 

* 

2  2  AC 

5100 

* 

MATPAK 

SUB ROUT INK 

2  2  AC 

5110 

* 

2  2  AC  2A 

00  35 

5120 

MATPAK 

LHLD 

MATPTR 

22AF  77 

5130 

MOV 

M,A       * 

PUT  CODE  IN  ROW  1 

22B0  EB 

5140 

XCHG 

22B1  07 

5150 

RLC 

22B2  4P 

5160 

MOV 

C,A 

22B3  06 

00 

5170 

MVI 

B,0       * 

CODE«2  INTO  BC 

22B5  21 

3D  23 

5180 

LXI 

H.FEATAB 

22B8  09 

5190 

DAD 

B 

22B9  EB 

5200 

XCHG 

*         * 

FEATURE  ADDR  IN  DE 

22BA  01 

5F  00 

5210 

LXI 

B , M ATLEN 

22BD  09 

5220 

DAD 

B         * 

BUMP  HL  TO  FEATA  ROW 

22BE  1A 

5230 

LDAX 

D 

22BP  77 

5240 

MOV 

M,A       * 

MOVE  1ST  FEATURE  WORD 

T  MATRIX 

22C0  13 

5250 

INX 

D 

22C1  1A 

5260 

LDAX 

D 

22C2  09 

5270 

DAD 

B 

22C3  77 

5280 

MOV 

M,A       * 

MOVE  2ND  FEATURE  WORD 

TO  MATRIX 

22C4  C9 

5290 

RET 

22C5 
22C5 
22C5 

5300 
5310 
5320 

* 

* 

22C5 

5330 

* 

PHONEME 

VALIDATION  TABLE 

22C5 

5340 

* 

22C5  -'0 

5350 

PVTAfl 

DB 

*  • 

22C6  u0 

5360 

DB 

0 

22C7  2E 

5370 

DB 

1    1 

22C8  00 

5380 

DB 

o' 

22C9  2C 

5390 

DB 

1  t   ' 

22CA  00 

5400 

DB 

0 

22CB  3F 

5410 

DB 

i  7  • 

22CC  00 

5420 

DB 

o" 

22CD  23 

5430 

DB 

'*' 

22CE  00 

5440 

DB 

0 

22CF  49 

59 

5450 

DT 

.IY. 

22D1  49 

48 

5460 

DT 

'IH1 

22D3  45 

48 

5470 

DT 

'EH' 

22D5  41 

45 

5480 

DT 

'AE' 

22D7  41 

41 

5490 

DT 

'AA' 

22D9  41 

48 

5500 

DT 

'AH  ' 

22DB  41 

4F 

5510 

DT 

'AO' 

22DD  4F 

57 

5520 

DT 

'OW" 

22DF  55 

48 

5530 

DT 

"UH" 

22E1  55 

57 

5540 

DT 

'OW' 

22E3  41 

58 

5550 

DT 

'AX* 

22E5  49 

58 

5560 

DT 

'IX" 

22E7  45 

52 

5570 

DT 

'ER' 

22E9  55 

58 

5580 

DT 

■DX' 

22EB  4F 

48 

5590 

DT 

'OH' 

22ED  41 

57 

5600 

DT 

•AW 

22EP  41 

59 

5610 

DT 

"AY1 

22F1  4F 

59 

5620 

DT 

'OY' 

22F3  45 

59 

5630 

DT 

'EY' 
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ADDR  Bl  82  B3  E  LINE   LABEL      OPCD   OPERAND 


22P5 

52 

58 

5640 

22P7 

4C 

58 

5650 

22P9 

57 

53 

5660 

22F3 

59 

58 

5670 

22PD 

57 

43 

5630 

22PP 

45 

4C 

5690 

2331 

45 

4D 

5700 

2  33  3 

45 

4E 

5710 

2305 

52 

5720 

2306 

00 

5730 

2307 

4C 

5740 

2303 

00 

5750 

2309 

57 

5760 

230A 

00 

5770 

2303 

59 

5780 

2  30C 

00 

5790 

230D 

4D 

5800 

230E 

0  0 

5810 

230P 

4E 

5820 

231C 

00 

5830 

2311 

4E 

58 

5840 

2313 

50 

5350 

2314 

00 

5860 

2315 

54 

5870 

2316 

30 

5830 

2317 

43 

5890 

2318 

00 

5900 

2313 

43 

53 

5913 

2313 

42 

5920 

231C 

00 

5930 

231D 

44 

5940 

231E 

30 

5950 

231F 

47 

5960 

2320 

30 

5970 

2321 

47 

58 

5930 

2323 

44 

53 

5990 

2325 

46 

6000 

2326 

30 

6010 

2327 

54 

48 

6020 

2329 

53 

6030 

232A 

00 

6040 

2323 

53 

43 

6050 

232D 

56 

6060 

232E 

00 

6070 

232? 

44 

43 

6380 

2331 

5  A 

, 

6390 

2332 

33 

6100 

2333 

5A 

48 

6110 

2335 

43 

48 

6120 

2337 

4A 

48 

6130 

2339 

48 

48 

6140 

2333 

51 

6150 

2  3  3C 

33 

6160 

233D 

6170 

233D 

6130 

233D 

6190 

233D 

6230 

DT 

'RX' 

DT 

•LX' 

DT 

■WX' 

DT 

••it' 

DT 

•WH' 

DT 

•EL' 

DT 

'EM' 

DT 

'EN' 

DB 

■R' 

D3 

0 

DB 

'L' 

DB 

0 

DB 

•w 

D3 

0 

DB 

,Y. 

DB 

0 

DB 

'M' 

DB 

0 

DB 

•s' 

DB 

0 

DT 

'NX' 

DB 

.p. 

D3 

0 

DB 

'T' 

DB 

0 

DB 

'K' 

DB 

0 

DT 

'KX' 

DB 

'3' 

DB 

0 

DB 

■D' 

DB 

0 

D3 

•G' 

DB 

0 

DT 

'GX' 

DT 

•DX' 

DB 

'?' 

DB 

0 

DT 

,TH. 

D3 

'S' 

DB 

0 

DT 

■SH' 

DB 

'V 

DB 

0 

DT 

'DH' 

DB 

'Z' 

DB 

0 

DT 

'ZET 

DT 

'CH" 

DT 

'JH' 

DT 

'HH' 

D3 

•Q' 

DB 

0 

FEATURE  DEFINITION  TABLE 
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233D 

05 

233E 

00 

233F 

03 

2340 

00 

2341 

02 

2342 

00 

2343 

03 

2344 

00 

2345 

03 

2346 

00 

2347 

A0 

2348 

40 

2349 

AO 

234A 

40 

234B 

AO 

234C 

40 

234D 

AO 

234E 

40 

234F 

AQ 

2350 

40 

2351 

AO 

2352 

40 

2353 

80 

2354 

40 

2355 

90 

2356 

40 

2357 

30 

2358 

40 

2359 

90 

2  3  5A 

40 

235B 

80 

235C 

40 

235D 

90 

235E 

40 

235F 

80 

2360 

40 

2361 

80 

2362 

40 

2363 

80 

2364 

40 

2365 

90 

2366 

40 

2367 

30 

2368 

4  0 

2369 

30 

236A 

40 

236B 

30 

236C 

40 

236D 

80 

236E 

40 

236F 

90 

2370 

40 

2371 

80 

2372 

40 

2373 

80 

2374 

40 

2375 

40 

LINE   LABEL 

OPCD 

OPERAND 

6210  FEATAB 

DB 

WDBND+IGNORE 

*  SPACE 

6220 

DB 

0 

6230 

DB 

PHBND+IGNORE 

*  PERIOD 

6240 

DB 

0 

6250 

DB 

PHBND    *  COMMA 

6260 

DB 

0 

6270 

DB 

PHBND+IGNORE 

*  QUESTION 

6280 

DB 

0 

6290 

DB 

PHBND+IGNORE 

*  TERMINATOR 

6300 

DB 

0 

6310 

DB 

VOWEL+FRONT 

*  IY 

6320 

DB 

VOICE 

6330 

DB 

VOWEL+FRONT 

*  IH 

6340 

DB 

VOICE 

6350 

DB 

VOWEL+FRONT 

*  EH 

6360 

DB 

VOICE 

6370 

DB 

VOWEL+FRONT 

*  AE 

6380 

DB 

VOICE 

6390 

DB 

VOWEL+FRONT 

*  AA 

6400 

DB 

VOICE 

6410 

DB 

VOWEL+FRONT 

*  AH 

6420 

DB 

VOICE 

6430 

DB 

VOWEL    *  AO 

6440 

DB 

VOICE 

6450 

DB 

VOWEL+DIPHTH 

*  OW 

6460 

DB 

VOICE 

6470 

DB 

VOWEL 

*  UH 

6480 

DB 

VOICE 

6490 

DB 

VOWEL+DIPHTH 

*  uw 

6500 

DB 

VOICE 

6510 

DB 

VOWEL 

*  AX 

6520 

DB 

VOICE 

6530 

DB 

VOWEL 

*  IX 

6540 

DB 

VOICE 

. 

6550 

DB 

VOWEL 

*  ER 

6560 

DB 

VOICE 

6570 

DB 

VOWEL 

*  UX 

6580 

DB 

VOICE 

6590 

DB 

VOWEL 

*  OH 

6600 

DB 

VOICE 

6610 

DB 

VOWEL+DIPHTH 

*  AW 

6620 

DB 

VOICE 

6630 

DB 

VOWEL+FRONT+DIPHTH  *  AY 

6640 

DB 

VOICE 

6650 

DB 

VOWEL+FRONT+DIPHTH  *  OY 

6660 

DB 

VOICE 

6670 

DB 

VOWEL+FRONT+DIPHTH  *  EY 

6680 

D3 

VOICE 

6690 

DB 

VOWEL 

*  RX 

6700 

DB 

VOICE 

6710 

DB 

VOWEL 

*  LX 

6720 

DB 

VOICE 

6730 

DB 

VOWEL 

*  WX 

6740 

DB 

VOICE 

6750 

DB 

VOWEL 

*  YX 

6760 

DB 

VOICE 

6770 

DB 

CONS 

*  WH 
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ADDR    SI    32    B3    E    LINE      LABEL 


OPCD      OPERAND 


2376    40 

6780 

2377    00 

6790 

2378    00 

6800 

2379    00 

6810 

237A    00 

6820 

237B    00 

6830 

237C    00 

6840 

237D    40 

6850 

237E    44 

6860 

237F    40 

6870 

2380    44 

6880 

2381    40 

6390 

2382    44 

6900 

2383    40 

6910 

2384    40 

6920 

2385    40 

6930 

2386   C2 

6940 

2387    40 

6950 

2388    C3 

6960 

2389    40 

6970 

238A    C2 

6980 

238B    40 

6990 

238C    30 

7000 

238D    40 

7010 

238E    Bl 

7020 

238F    40 

7030 

2390    BO 

7340 

2391    40 

7050 

2392    BO 

7060 

2393    40 

7070 

2394    E0 

7030 

2395    40 

7090 

2396    Ei 

7100 

2397    40 

7110 

2398    EO 

7120 

2399    40 

7130 

239A    EO 

7140 

2393    40 

7150 

239C    81 

7160 

239D    40 

7170 

239E    08 

7180 

239F    40 

7190 

23AC    39 

7200 

23A1    40 

7210 

23A2    09 

7220 

23A3    40 

7230 

23A4    08 

7240 

23A5    40 

7250 

23A6    48 

7260 

23A7    40 

7270 

23A3    49 

7280 

23A9    40 

7290 

23AA    49 

7300 

23AB    40 

7310 

2  3AC    48 

7320 

2  3AD    00 

7330 

23AE    00 

7340 

DB 

VOICE 

DB 

0              *    EL 

DB 

0 

DB 

0              *    EM 

DB 

0 

DB 

0              *    EN 

DB 

0 

DB 

CONS 

* 

R 

DB 

VOICE+LIQUID 

DB 

CONS 

* 

L 

DB 

VOICE+LIQUID 

DB 

CONS 

* 

W 

DB 

VOICE+LIQUID 

DB 

CONS 

* 

¥ 

DB 

VOICE 

DB 

CONS 

* 

M 

DB 

STOP+VOICE+NASAL 

D3 

CONS 

* 

N 

DB 

STOP+VOICE+NASAL+DENTAL 

DB 

CONS 

* 

NX 

DB 

STOP+VOICE+NASAL 

DB 

CONS 

* 

? 

DB 

STOP+PLOS+PLOSA 

DB 

CONS 

k 

T 

DB 

STOP+PLOS+PLOSA+DENTAL 

DB 

CONS 

* 

K 

DB 

STOP+PLOS+PLOSA 

DB 

CONS 

* 

KX 

DB 

STOP+PLOS+PLOSA 

DB 

CONS 

* 

B 

DB 

STOP+PLOS+VOICE 

DB 

CONS 

* 

D 

DB 

STOP+PLOS+VOICE+DENTAL 

DB 

CONS 

* 

G 

DB 

STOP+PLOS+VOICE 

DB 

CONS 

* 

GX 

DB 

STOP+PLOS+VOICE 

DB 

CONS 

# 

DX 

DB 

STOP+DENTAL 

DB 

CONS 

* 

P 

DB 

FRIC 

DB 

CONS 

* 

TH 

DB 

FRIC+DENTAL 

D3 

CONS 

# 

5 

DB 

FRIC+DENTAL 

DB 

CONS 

* 

SH 

DB 

FRIC 

DB 

CONS 

* 

V 

DB 

FRIC+VOICE 

DB 

CONS 

# 

DH 

DB 

FRIC+VOICE+DENTAL 

DB 

CONS 

• 

2 

DB 

FRIC+VOICE+DENTAL 

DB 

CONS 

* 

ZH 

DB 

FRIC+VOICE 

DB 

0                        *    CH 

DB 

0 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


23AF  00 

7350 

2JB0  00 

7360 

23B1  40 

7370 

23B2  00 

7380 

23B3  40 

7390 

23B4  CO 

7400 

OPCD 

OPERAND 

DB 

0 

DB 

0 

DB 

CONS 

DB 

0 

DB 

CONS 

DB 

STOP+VOICE 

JH 
3H 


23B5  7410  * 

23B5  7420  •   END  OF  SECT! 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2003 

2006 

2003 

200A 

200C 

200F 

2012  C3  CO  23 

2015 

2018 

2018 

201E 

2021 

2024 

20  3A 

20  3  A 

203A 

20  3A 

203A 

2C3A 

3S0C 

35)0 

3500 

3500 

3500 

3502 

3504 

3504 

3504 

3563 

35C2 

362i 

3680 

36DF 

36DF 

36DF 

36DF 

36DF 

36E1 

36E2 


OOiO 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

01C0 

0i70 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 


RULES,  GROUPS  1  AND  2 

SECTION  2  OF  THE  CSR1  SYNTHESIS  BY  RULE  SYSTEM 

LLOYD  RICE,   COMPUTALKER  CONSULTANTS 
VERSION  1.07    MAY  30,  1977 


COMMON  JUMP  ADDRESS  TABLE 

THIS  TABLE  ALLOWS  REASSEMBLING  ANY  SECTION 

WITHOUT  CHANGING  REFERENCES  IN  OTHER  SECTIONS 


OMJMP 

:sri 

PLAY 

BUFADR 

BUFEND 

PVTAB 

MATPAK 

MATERR 

SETDUR 

RULES3 

GENFO 

CLRBUF 

GENPRM 

DUMMY 


ECU 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

JMP 

DS 

DS 

DS 

DS 

DS 

DS 


RULES 


TOMRAM  ORIGEN  DEFINITION 


ORG 
EQU 


COMJMP+1500H 
$ 


COM RAM 

*   CSR1  SYSTEM  RAM  SPACE  DEFINITION 


MATPTR 

NEGEND 

MATRIX 

MATLEN 

PHCODE 

FEATA 

FEATB 

STRES 

DUR 

MATEND 


DS 

DS 

ECU 

ECU 

DS 

DS 

DS 

DS 

DS 

ECU 


2 

2 

5 

95 

MATLEN 

MATLEN 

MATLEN 

MATLEN 

MATLEN 

$ 


RULES  (LOCAL)  RAM  WORKSPACE 


MOVAD 
COUNT 


DS 
DS 
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PAGE   02 

ADDR    31    B2    33    E    LINE 

36E2 

36E2 

36E2 

36E2 

36E2 

23C0 

23C0 

23C0 

23C0 

23C0 

23CO 

2  3C0 

2  3C0 

23C0 

23C0 

23C0 

23C0 

23C0 

23C0 

2  3C0 

23C0 

23C0 

23C0 

23C0 

23C0 

23CO 

2  3C0 

2  3C0 

23C0 

23C0 

23CO 

23C0 

23C0 

23CO 

23C0 

23C0 

23C0 

23C0 

23C0 

2  3C0 

23CO 

23C0 

23C0 

2  3C0 

2  3CO 

23C0 

23CO 

23C0 

23C0 

23CO 

23C0 

2  3C0 

23CO 

23C0 

23C0 

23C0 

23C0 


LINE 

0580 
0590 

LABEL 

OPCD 

OPERAND 

* 

0600 

»   RULES 

GROUPS  j  AND  .:< 

0610 

* 

0620 

ORG 

COMJMP+3C0H 

0630 

* 

0640 

*   PHONEME 

CQDE 

DEFINITIONS 

0650 

* 

0660 

CSPACE 

ECU 

0 

0670 

CTERM 

EQU 

4 

0680 

COW 

EQU 

14 

0690 

cux 

EQU 

18 

0700 

CRX 

EQU 

24 

0710 

CLX 

ECU 

25 

0720 

CWX 

EQU 

26 

0730 

CYX 

EQU 

27 

0740 

CWH 

EQU 

28 

0750 

CR 

EQU 

32 

0760 

CW 

EQU 

34 

0770 

CL 

EQU 

33 

0780 

CM 

EOU 

36 

0790 

CN 

EQU 

37 

0800 

CNX 

EQU 

38 

0810 

CP 

ECU 

39 

0820 

CT 

ECU 

40 

0830 

CK 

EQU 

41 

0840 

CKX 

ECU 

42 

0850 

CB 

EQU 

43 

0360 

CD 

ECU 

44 

0870 

CG 

EOU 

45 

0880 

CGX 

EQU 

46 

0890 

CDX 

EQU 

47 

0900 

CS 

EQU 

SO 

0910 

CSH 

EQU 

51 

0920 

CZ 

EQU 

54 

0930 

CZH 

ECU 

55 

0940 

CHH 

EQU 

58 

0950 

CQ 

EQU 

59 

0960 

♦ 

0970 

*   DEFINE 

FEATURE  LABELS 

0980 

* 

0990 

VOWEL 

ECU 

30H 

iOOO 

CONS 

EQU 

40H 

1010 

FRONT 

EQU 

20H 

1020 

DIPHTH 

EQU 

10H 

1030 

WD8ND 

EQU 

4 

1040 

PHBND 

ECU 

2 

1050 

IGNORE 

ECU 

1 

1060 

STOP 

EQU 

30H 

1070 

VOICE 

EQU 

40H 

1080 

PLOS 

EOU 

20H 

1090 

PLOSA 

ECU 

10H 

1100 

FRIC 

EQU 

8 

1110 

LIQUID 

ECU 

4 

1120 

NASAL 

ECU 

2 

1130 

DENTAL 

EQU 

1 

1140 

* 
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PAGE  03 

ADDR  Bl  B2  B3  G  LINE   LABEL      OPCD   OPERAND 

23C0  1150 

23C0  1160 

23C0  1170 

23CO  1180 

23C0  1190 

23C0  1200 

23CO  1210 

23C0  1220 

23C0  1230 

23CO  CD  08  23    1240  RULES       CALL   RULES1   *  APPLY  RULE  GROUP  1 

23C3  CO  1250             RNZ    »        •  RETURN  IF  ERROR 

23C4  00  1260 

23C5  00  1270 

23C6  00  1280 

23C7  CD  78  24    1290             CALL   RULES2   *  APPLY  RULE  GROUP  2 

23CA  00  1300 

23CB  00  1310 

23CC  00  1320 

23CD  CD  IS  20    1330             CALL   SETDUR   *  ASSIGN  INITIAL  DURATIONS 

23D0  00  1340 

23D1  00  1350 

23D2  00  1360 

23D3  CD  18  20    1370             CALL   RULES3   *  APPLY  RULE  GROUP  3 

23D6  AF  1380              XRA    A        *  CLEAR  ERROR  CONDITION 

23D7  C9  1390 

23D8  1400 

23D8  1410 

23D8  1420 

23D8  1430  • 

23D8  1440  •   RULE  GROUP  1 

23D8  1450  • 

23D8    21  05    35         1460    RULES1              LXI         H.MATRIX+1 

2  3DB    22  00    35         1470                                SHLD      MATPTR 

23DE    01  5F    00         1480                                LXI         B.MATLEN 

23E1  1490    RlLOOP              EQU         S 

23E1  1500    * 

23E1  1510  *   0  <-  VOWEL  STRESS .GT. 0, SPACE//VOWEL  STRESS. GT. 0 

23E1  1520  * 

23E1  09  1530  R1A         DAD    B 

23E2  7E  1540             MOV    A,M      *  GET  COL  X  FEATA 

23E3  E6  80       1550             ANI    VOWEL 

2  3E5  CA  1C  24    1560             JZ     RIB      *  NOT  A  VOWEL 

23E8  09  1570             DAD    B 

23E9  09  1580             DAD    B 

2  3EA  7E  1590             MOV    A,M      *  GET  COL  X  STRESS 

23EB  B7  1600             ORA    A 

2  3EC  CA  1C  24    1610             JZ     RIB      *  VOWEL  NOT  STRESSED 

2  3EF  2A  00  35    1620             LHLD   MATPTR 

23P2  2B  1630             DCX    H 

23F3  7E  1640             MOV    A,M      »  GET  COL  X-l  CODE 

23F4  FS  04       1650             CPI    CTERM 

23F6  CA  65  24    1660             JZ     ENDR1    *  X  IS  1ST  COLUMN 

23F9  FE  00       1670             CPI    CSPACE 

23FB  C2  1C  24    1680             JNZ    RIB      *  NOT  A  WORD  BOUNDARY 

23FE  2B  1690             DCX    H 

2  3FF  7E  1700             MOV    A,M      *  GET  COL  X-2  CODE 

2400  FE  04       1710             CPI    CTERM 


* 

*   RULES 

CODE 

* 

* 

•   RULES 

MAIN 

* 

RULES 

CALL 

RULES  1 

RNZ 

* 

NOP 

NOP 

NOP 

CALL 

RULES  2 

NOP 

NOP 

NOP 

CALL 

SETDUR 

NOP 

NOP 

NOP 

CALL 

RULES  3 

XRA 

A 

RET 

* 

» 
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ADDR   Bl    B2   B3    E    LINE       LABEL 


OPCO      OPERAND 


2402  CA 

2405  09 

2406  7E 

2407  E6 

2409  CA 
240C  09 
24QD  09 
240E  7E 
240F  B7 

2410  CA 
2413  3E 
2415  CD 

2418  CO 

2419  C3 
241C 
241C 
241C 
241C  2A 
241F  7E 
24T0  FE 
2422  C2 
2425  16 
2427  C3 
242A 
242A 
242A 
242A  FE 
242C  C2 
242F  16 

2431  2B 

2432  7E 

2433  FE 
2435  CA 

2438  09 

2439  7E 
243A  E6 
243C  CA 
243F  7A 

2440  CD 
2443  2A 
2446 
2446 
2446 
2446 
2446  2B 
24*47  7E 
2448  FE 
244A  CA 
244D  09 
244E  7E 
244F  E6 
2451  CA 

2454  7t 

2455  E6 
2457  CA 
24SA  3E 
245C  C3 


1C  24 


80 
1C  24 


1C  24 
3B 

OA  27 

65  24 


00  35 

20 

2A  24 
18 
31  24 


21 
46  24 

19 


04 
65  24 


30 
65  24 


OC  20 
00  35 


04  . 
65  24 


10 
65  24 

20 

5F  24 
IB 
61  24 


1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1350 

1860 

1870 

1880 

1890  RIB 

1900 

1910 

1920 

1930 

1940 

1950  * 

1960 

1970 

1980  R1C 

1990 

2000 

2010  R1BC 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120  * 

2130 

2140 

2150  * 

2160  RID 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 


JZ 
DAD 

MOV 

ANI 

JZ 

DAD 

DAD 

MOV 

QRA 

JZ 

MV1 

CALL 

RNZ 

JMP 

RX  <-  VOWEL/R/ 


RIB 

a 

A,M 

VOWEL 

RIB 

B 

B 

A,M 

A 

RIB 

A,CQ 

MATNSR 

ENDRl 


LHLD 

MOV 

CPI 

JNZ 

MVI 

JMP 

LX  <-  VOWEL/L/ 


MATPTR 

A,M 

CR 

R1C 

D.CRX 

R1BC 


YX  <- 
WX  <- 


CL 
RID 
D.CLX 
H 

A,M 
CTERM 
ENDRl 
B 

A,H 
VOWEL 
ENDRl 
A,D 

CALL   MATPAK 
LHLD   MATPTR 


CPI 

JNZ 

MVI 

DCX 

MOV 

CPI 

JZ 

DAD 

MOV 

ANI 

JZ 

MOV 


*  GET  COL  X-2  FEATA 


•  NOT  A  VOWEL 


*  GET  COL  X-2  STRESS 


*  STRESS  MUST  BE  NON  0 


OK,  INSERT  A  GLOT"»iL  STOP 


*  TEST  FOR  R 

*  CHANGE?  TO  RX 

*  TEST  FOR  L 

*  CHANGE?  TO  LX 

*  GET  COL  X-l  CODE 

*  GET  COL  X-l  FEATA 

*  NOT  A  VOWEL 

*  OK,  CHANGE  THE  CONSONANT 


DIPHTH  FRONT// 
DIPHTH  -FRONT// 


DCX 

MOV 

CPI 

JZ 

DAD 

MOV 

ANI 

JZ 

MOV 

ANI 

JZ 

MVI 

JMP 


H 

A,M 

CTERM 

ENDRl 

B 

A,M 

DIPHTH 

ENDRl 

A,M 

FRONT 

BACK 

A.CYX 

GLIDE 


*  GET  COL  X-l  FEATA 


*  NOT  A  DIPHTHONG 
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PAGE    0  5 


ADDR    Si    B2    B3    E    LINE      LABEL 


OPCD      OPERAND 


24SF  3E 
2461  CD 

2464  CO 
246S 
2465 
246S 

2465  00 

2466  2A 
2469  23 
246A  22 
246D  AF 
246E  EB 
246F  2A 

2472  19 

2473  D8 

2474  EB 

2475  C3 
2478 
2478 
2478 
2478 
2478 
2478  21 
247B  22 
247E  01 
2481 
2481 
2431 
2481 

2481  09 

2482  7E 

2483  E6 
243S  CA 

2488  09 

2489  09 
248A  7E 
2483  B7 
248C  FA 
248F  2A 

2492  23 

2493  7E 

2494  FE 
2496  CA 
2499  09 
249A  7E 
249B  E6 
249D  CA 
24A0  09 
24A1  09 
24A2  7E 
24A3  B7 
24A4  CA 
24A7  2B 
24A8  36 
24AA 
24AA 
24AA 


1A 
OA  27 


00  35 
00  35 

02  35 
El  23 


05  35 
00  35 
5F  00 


40 
FD  25 


AA  24 
00  35 


04 
FD  25 


80 
AA  24 


7D  25 

01 


BACK 

GLIDE 


«   STRESSX-1  <-  /CONS  STRESS .GE. 0/VOWEL  STRESS. NE.O 


2290 

2300 

2310 

2320 

2330 

2340  * 

2350  ENDR1 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460  * 

2470  •*»«• 

2480  * 

2490 

2500  * 

2510  RULES2 

2520 

2530 

2540  R2LOOP 

2550  • 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

27i0 

2720 

2730 

2740 

2750 

27G0 

2770 

2780 

2790 

2800 

28i0 

2820 

2830 

2840 

2850 


MVI 

CALL 
RNZ 


A.CWX 
MATNSR 


END  OF  RULE  GROUP  1 


NOP 

LHLD 

INX 

SHLD 

XRA 

XCHG 

LHLD 

DAD 

RC 

XCHG 

JMP 


RULE  GROUP  2 


LXI 

SHLD 

LXI 

ECU 


MATPTR 
H 

MATPTR 
A 

NEGEND 
D 


R1LOOP 


H.MATRIX+1 
MATPTR 
B.MATLEN 
$ 


*  INSERT  GLIDE  AFTER  DIPHTH 


*  BREAKPOINT  LOC 


*  STEP    POINTER 

*  CLEAR    ERROR  CONDITION 


*  RETURN  IF  END  OP  MATRIX 


R2A 


DAD 

MOV 

ANI 

JZ 

DAD 

DAD 

MOV 

OPA 

JH 

LHLD 

INX 

MOV 

CPI 

JZ 

DAD 

MOV 

ANI 

JZ 

DAD 

DAD 

MOV 

ORA 

JZ 

DCX 

MVI 


B 

A,M 

CONS 

R2G 

B 

B 

A,M 

A 

R2B 

MATPTR 

H 

A,K 

CTERM 

R2G 

B 

A,M 

VOWEL 

R2B 

B 

3 

A,M 

A 

R2E 

H 

N,l 


*  GET  COL  X  FEATA 

*  NOT  A  CONSONANT 

*  GET  COL  X  STP.ESS 

*  STRESS  IS  -,  DON'T  CHANGE  IT 

*  GET  COL  X+l  CODE 

*  GET  COL  X+l  FEATA 

*  NOT  A  VOWEL 


*  GET  COL  X+l  STRESS 

*  VOWEL  NOT  STRESSED 

*  OK,  SET  CONSONANT  STRESS  -  1 
STRESSX.X+i  —  1  <-  /S.PLOS  -VOICE/VOWEL  STR£SS.NE;0 
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ADDR  Bl  B2  B3  £  LINE   LABEL 


PAGE  36 


OPOD   OPERAND 


24AA  2A 
24AD  7E 
24AE  FE 
24B0  02 
24B3  23 
24B4  7E 
24B5  FE 
24B7  CA 
24BA  09 
248B  09 
2  4BC  7E 
24BD  EE 
24BF  E6 
24C1  C2 
2404  2A 
24C7  23 

2408  23 

2409  7E 
240A  FE 
2400  OA 
240F  09 
24D0  7E 
24D1  E6 
24D3  CA 
2406  09 
24D7  09 
24D8  7E 
24D9  B7 
2  4DA  CA 
24DD  2B 
24DE  36 
24E0 
24E1 
24E3 
24E3 
24E3 
24E3 
24E3  2A 
24E6  09 
24E7  09 
24E8  7E 
24E9  E6 
24EE  02 
24EE  7E 
24EF  EE 
24F1  E6 
24F3  02 
24F6  2A 
24F9  23 
24FA  7E 
24FB  FE 
24FD  OA 

2500  09 

2501  09 

2502  7E 

2503  E6 
2505  CA 


2B 
36 


00  35 

32 

E3  24 


04 
F8  26 


20 
60 

E3  24 
00  35 


04 
F8  26 


80 
E3  24 


E3  24 

FF 
FF 

00  35 


20 
F6  24 

08 
48 

2A  25 
00  35 


04 
42  26 


06 
2A  25 


2360  R2B 

2370 

2880 

2390 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2960 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220  * 

3230  R2C 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330  R2C1 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 


LHLO 

MOV 

OFI 

JNZ 

INX 

MOV 

OPI 

JZ 

DAD 

DAD 

MOV 

XRI 

ANI 

JNZ 

LHLD 

INX 

INX 

MOV 

OPI 

JZ 

DAD 

MOV 

ANI 

JZ 

DAD 

DAD 

MOV 

ORA 

JZ 

DCX 

MVI 

DCX 

MVI 


MATPTR 

A.M 

OS 

R2C 

H 

A.M 

CTERM 

ENDR2 

B 

3 

A,M 

PLOS 

PLOS+VOIOE 

R20 

MATPTR 

H 

H 

A,H 

CTERM 

ENDR2 

B 

A.M 

VOW  EL 

R2C 

3 


*  COL  X  NOT  AN  S 

*  GET  COL  X+l  CODE 

*  S  IN  LAST  COL,  END  GROUP 

*  GET  COL  X+l  FEATB 

E 
X+l  IS  NOT  UNVOICED  PLOSIVE 

*  GET  COL  X+2  CODE 

*  GET  COL  X+2  FEATA 

*  NOT  A  VOWEL 


A.M 
A 

R2C 

H 

M.-l 

H 

M,-l 


*  X+2  STRESS  MUST  BE  NON  0 

*  SET  STRESS  X+l  >-i 

*  SET  STRESS  X  — 1 

STRESSX.X+1  —  1    <.    /PLOS    OR     {FRIC    -VOICE)  ,  LIQUID 
OR    HASAL/VOWEL    STRESS. NE.O 


LHLD 

DAD 

DAD 

MCV 

ANI 

JNZ 

MOV 

XRI 

ANI 

JNZ 

LHLD 

INX 

MOV 

CPI 

JZ 

DAD 

DAD 

MOV 

ANI 

JZ 


MATPTR 

B 

B 

A.M 

PLCS 

R201 

A.M 

FRIC 

FRIO+VOIOE 

R2D 

MATPTR 

H 

A.M 

CTERM 

R2JK 

B 

a 

A.M 


GET   COL    X    FEATB 
COL    X    IS    PLOSIVE 


NEITHER    PLOS    NOR    FRIC    -VOICE 


GET   COL    X+l    CODE 


liquid+nasa: 


GET  COL  X+i  FEATB 


R2D 


NEITHER  LIQUID  NOR  NASAL 
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PAGE  07 

ADDR  Bl  B2  B3  E  LINE   LABEL      OPCD  OPERAND 

2S08  2A  00  35    3430  R2C2        LHLD  HATPTR 

INX  H 

INX  H 

MOV  A,M  *   GET   COL    X+2    CODE 

CPI  CTERM 

JZ  R2JK 

DAD  B 

MOV  A,M  *    GET   COL    X+2    FEATA 

AN  I  VOWEL 

JZ  R2JK  *   NOT   A    VOWEL 

DAD  B 

DAD  B 

MOV  A,M 

ORA  A 

JZ  R2JK  *    VOWEL    X+2    NOT   STRESSED 

DCX  H 

MVI  M,-l  *    PUT    -1    STRESS    IN   COL    X+l 

DCX  H 

MVI  M,-l  *    PUT   -1    STRESS    IN   COL    X 

JMP  R2JK 
* 

*  STRESSX,X+l,X+2  — 1    <-    /S  ,  PLOS    -VOICE,  LIQUID/ 

*  VOWEL    STRESS. NE.O 

* 

R2D 


250B  23 

3440 

2  50C  23 

3450 

250D  7E 

3460 

250E  FE 

04 

3470 

2510  CA 

42 

26 

3480 

2513  09 

3490 

2514  7E 

3500 

2515  E6 

80 

3510 

2517  CA 

42 

26 

3520 

251A  09 

3530 

251B  09 

3540 

251C  7E 

3550 

251D  B7 

3560 

251E  CA 

42 

26 

3570 

2S21  2B 

3580 

2522  36 

FF 

3590 

2S24  2B 

3600 

2525  36 

FF 

3610 

2527  C3 

42 

26 

3620 

2S2A 

3630 

252A 

3640 

2S2A 

3650 

252A 

3660 

252A  2A 

00 

35 

3670 

252D  7E 

3680 

252E  FE 

32 

3690 

2530  C2 

7D 

25 

3700 

2533  23 

3710 

2534  7E 

3720 

2535  FE 

04 

3730 

2537  CA 

F8 

26 

3740 

253A  09 

3750 

253B  09 

3760 

253C  7E 

3770 

253D  EE 

20 

3780 

253P  E6 

60 

3790 

2541  C2 

F8 

26 

3800 

2544  2A 

00 

35 

3810 

2547  23 

3820 

2543  23 

3830 

2549  7E 

3840 

254A  FE 

0  4 

3850 

254C  CA 

F8 

26 

3860 

254F  09 

3870 

2550  09 

' 

3880 

2551  7E 

3890 

2552  E6 

04 

3900 

2554  CA 

F8 

26 

3910 

2557  2A 

00 

35 

3920 

255A  23 

3930 

255B  23 

3940 

255C  23 

3950 

255D  7E 

3960 

255E  FE 

04 

3970 

2560  CA 

F8 

26 

3980 

2563  09 

3990 

LHLD 

MATPTR 

MOV 

A,M 

CPI 

CS 

JNZ 

R2E 

*  THIS  COL  NOT  AN  S 

INX 

H 

MOV 

A,M 

CPI 

CTERM 

JZ 

ENDR2 

*  S  IN  LAST  COL,  END  GROUP 

DAD 

B 

DAD 

B 

MOV 

A,M 

*  GET  COL  X+l  FEATB 

XRI 

PLOS 

AN  I 

PLOS+VOICE 

JNZ 

ENDR2 

*  COL  X+l  NOT  UNVOICED  PLO: 

LHLD 

MATPTR 

INX 

H 

INX 

H 

MOV 

A,M 

*  GET  COL  X+2  CODE 

CPI 

CTERM 

JZ 

ENDR2 

*  LAST  COL,  END  OF  GROUP 

DAD 

B 

DAD 

B 

MOV 

A,M 

*  GET  COL  X+2  FEATB 

ANI 

LIQUID 

JZ 

ENDR2 

*  NOT  A  LIQUID 

LHLD 

MATPTR 

INX 

H 

INX 

II 

INX 

H 

MOV 

A,M 

*  GET  COL  X+3  CODE 

CPI 

CTERM 

JZ 

ENDR2 

DAD 

B 
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ADDR   Bl    82    S3    E    LINE      LABEL 


OPCD      OPERAND 


2564  7E 

4000 

2565  E6 

80 

4010 

2567  CA 

F8 

26 

4020 

256A  09 

4030 

256B  09 

4040 

256C  7E 

4050 

2S6D  B7 

4060 

256E  CA 

F8 

26 

4070 

2S71  2B 

4080 

2572  36 

FF 

4090 

2574  2B 

4100 

2575  36 

FF 

4110 

2577  2B 

4120 

2S78  36 

FF 

4130 

257A  C3 

F8 

26 

4140 

257D 

4150 

257D 

4160 

257D 

4170 

257D  2A 

00 

35 

4180 

2580  7E 

4190 

2581  FE 

28 

4200 

2  58  3  CA 

8B 

25 

4210 

2S86  FE 

2C 

4220 

2588  C2 

ID 

26 

4230 

258B  23 

4240 

258C  7E 

4250 

258D  FE 

04 

4260 

258F  CA 

42 

26 

4270 

2592  FE 

33 

4280 

2594  CA 

9C 

25 

4290 

2597  FE 

37 

4300 

2599  C2 

BA 

25 

4310 

259C  23 

4320 

2S9D  7E 

4330 

259E  FE 

04 

4340 

25A0  CA 

42 

26 

4350 

2SA3  09 

4360 

2SA4  7E 

4370 

25A5  E6 

80 

4380 

25A7  CA 

42 

26 

4390 

25AA  09 

4400 

2SAB  09 

4410 

25AC  7E 

4420 

25AD  B7 

4430 

25AE  CA 

42 

26 

4440 

25B1  2B 

4450 

25B2  36 

FF 

. 

4460 

2  SB  4  2B 

4170 

2SB5  36 

FF 

4480 

25B7  C3 

42 

26 

4490 

25BA 

4  500 

2SBA 

4510 

25BA 

4520 

2SBA  2A 

00 

35 

4530 

2SBD  2B 

4540 

25BE  7E 

4550 

258F  FE 

04 

4560 

R2E 


R2E1 


*  GET  COL  X+3  FEATA 

*  NOT  A  VOWEL 

*  GET  COL  X+3  STRESS 

*  VOWEL  MUST  BE  STRESSED 
»  SET  STRESS  X  +  2  -  -1 

*  SET  STRESS  X+l  -  -1 

*  SET  STRESS  X  -  -1 

STRESSX.X+1— 1  <-  /T  OR  D,SH  OR  ZH/VOWEL  STRESS. NE.O 

*  GET  COL  X  CODE 

*  IT'S  A  T 

*  IT'S  NEITHER  T  NOR  D 
«  GET  COL  X+l  CODE 
«  LAST  COL 

*  COL  X+l  IS  SH 

*  X+l  IS  NEITHER  SH  OR  ZH 

*  GET  COL  X+2  CODE 

*  LAST  COL 

*  GET  COL  X+2  FEATA 

*  X+2  NOT  A  VOWEL 

*  GET  COL  X+2  STRESS 

*  VOWEL  X+2  NOT  STRESSED 

*  SET  STRESS  X+l  »  -1 

*  SET  STRESS  X  •  -1 

*      DX    <»    VOWEL/T  CR   D/ (WDBND, VOWEL)    OR    VOKEL   STRESS. EQ. 0 


R2E2 


R2F 


MOV 

A,M 

ANI 

VOWEL 

JZ 

ENDR2 

DAD 

3 

DAD 

a 

MOV 

A,M 

ORA 

A 

JZ 

ENDR2 

DCX 

H 

MVI 

M.-l 

DCX 

H 

MVI 

M.-l 

DCX 

H 

MVI 

M#-l 

JMP 

ENDR2 

X  +  l  — 

1  <-  /T 

LHLD 

MATPTR 

MOV 

A,M 

CPI 

CT 

JZ 

R2E1 

CPI 

CD 

JNZ 

R2H 

INX 

H 

MOV 

A,M 

CPI 

CTERM 

JZ 

R2JK 

CPI 

CSH 

JZ 

R2E2 

CPI 

CZH 

JNZ 

R2F 

INX 

H 

MOV 

A,M 

CPI 

CTERM 

JZ 

R2JK 

DAD 

B 

MOV 

A,M 

ANI 

VOWEL 

JZ 

R2JK 

DAD 

B 

DAD 

B 

MOV 

A,M 

ORA 

A 

JZ 

R2JK 

DCX 

H 

MVI 

M,-l 

DCX 

H 

MVI 

M,-l 

JMP 

R2JK 

0WEL/T  OR  D/( 

LHLD 

MATPTR 

DCX 

H 

MOV 

A,M 

CPI 

CTERM 

*    GET   COL    X-l    CODE 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


25C1   CA    42    26 

4S70 

JZ 

R2JK 

2SC4    09 

4S80 

DAD 

B 

2SCS    7E 

4^90 

MOV 

A,M 

2-5C6    E6    80 

4600 

AN  I 

VOWEL 

2oC8   CA    42    26 

4610 

JZ 

R2JK 

2SCB    23 

4620 

INX 

H 

2SCC    23 

4630 

INX 

H 

2SCD    7E 

4640 

MOV 

A,M 

2SCE    E6    04 

46S0 

AH  I 

WDBND 

25D0   C2    E3    2"5 

4660 

JNZ 

R2F2 

2SD3    7E 

4670 

MOV 

A,M 

2<>D4    E6    80 

4630 

AN  I 

VOWEL 

2SD6   CA    42    26 

4690 

JZ 

R2JK 

2SD9    09 

4700 

DAD 

B 

2SDA    09 

47i0 

DAD 

B 

2SD3    7E 

4720 

MOV 

A,M 

2SDC    B7 

4730 

ORA 

A 

2SDD   CA    FS    2S 

4740 

JZ 

R2F3 

2SE0   C3    42    26 

47S0 

JMP 

R2JK 

2SE3    2A    00    3S 

4760    R2P2 

LHLD 

MATPTR 

2SE6    23 

4770 

INX 

H 

2SE7    23 

4780 

INX 

H 

2SE8    7E 

4790 

MOV 

A,M 

2SE9    FE    04 

4800 

CPI 

CTERM 

2SEB   CA    42    25 

4810 

JZ 

R2JK 

2SEE    09 

4820 

DAD 

B 

2SEF    7E 

4830 

MOV 

A,M 

2SF0    E6    80 

4840 

ANt 

VOWEL 

2SF2    CA    42    26 

48"i0 

JZ 

R2JK 

2'iF';    3E    2F 

4860    R2F3 

MVI 

A.CDX 

25F7    CD    OC    20 

4870 

CALL 

MATPAK 

25FA   C3    F8    26 

4880 

JMP 

ENDR2 

2SFD 

4890    * 

2SFD 

4900    *       UX    <- 

DENTAL/UW/ 

2SFC 

4910    * 

2SFD    2A    00    31 

4920    R2G 

LHLD 

MATPTR 

26QC    7E 

4930 

MOV 

A,M 

2601    FE    OE 

4940 

CPI 

CUW 

2633    C2    ID    26 

49S0 

JNZ 

R2H 

26:b    2B 

4960 

DCX 

H 

2607    7E 

4970 

MOV 

A,M 

26:3    FE    04 

49oO 

CPI 

CTERrt 

2£:a    r*    p3    26 

4990 

JZ 

ENDR2 

2=:d   09 

soco 

DAD 

B 

2  c :  e  ;  3 

solo 

DAD 

B 

2i'.F     7E 

S020 

MOV 

A,M 

261C    E6    Yi 

SC1G 

AM  • 

DENTAL 

26i2    rA    Fa    26 

SC40 

JZ 

ENDR2 

26 i S    3E    12 

s:s3 

MVI 

A.CUX 

25i7   CD    X    20 

■5063 

CALL 

MATPAK 

261A    C3    fa    26 

SJ70 

jnp 

ENOR2 

261D 

■>030    • 

26iD 

SG90    •      XX    <- 

/K/VOWEL    -FRCN' 

261D 

S1C0    * 

261D    FE    29 

SliO    R2H 

CPI 

CK 

261F   C2    27    26 

S120 

JNZ 

R2I 

2622    IE    2A 

S130 

MVI 

E,CKX 

*  COL  X  IS  1ST  COL 

*  GET  COL  X-l  FEATA 

*  NOT  A  VOWEL 

*  GET  COL  X+l  FEATA 

*  IT'S  A  WORD  BOUNDARY 

*  GET  FEAT  A  AGAIN 

*  IT'S  NOT  A  VOWEL 

*  GET  COL  X+l  STRESS 

*  VOWEL  IS  UNSTRESSED,  DO  THE  RULE 

«  GET  COL  X+2  CODE 


*  IT'S  NOT  A  VOWEL 


•  GET  COL  X  CODE 

•  GET  COL  X-l  CODE 

•  UW  IS  IN  COL  1,  END  OF  GROUP 

•  GET  COL  X-l  FEATB 

•  NOT  A  DENTAL  CONSONANT 

•  CHANGE  COL  TO  'JX 


*  COL  X  MUST  BE  EITHER  K, 
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ADDR    Bl    B2   B3    E    LINE       LABEL 


OPCD      OPERAND 


2624  C3 

2E 

26 

5140 

JMP 

R2HI 

2627 

5150 

* 

2627 

5160 

*   GX  <- 

/G/VOWEL  -FRONT 

2627 

5170 

* 

2627  FE 

2D 

5180 

R2I 

CPI 

CG 

2629  C2 

42 

26 

5190 

JNZ 

R2JK 

* 

...  OR  G 

262C  IE 

2E 

5200 

MVI 

E.CGX 

262E  23 

5210 

R2HI 

INX 

H 

262F  7E 

5220 

MOV 

A,M 

* 

GET  COL  X+l  CODE 

2630  FE 

04 

5230 

CPI 

CTERM 

2632  CA 

42 

26 

5240 

JZ 

R2JK 

• 

PLOSIVE  IS  IN  LAST  COL 

263S  09 

5250 

DAD 

B 

2636  7E 

5260 

MOV 

A,M 

* 

GET  COL  X+l  FEATA 

2637  EE 

80 

5270 

XRI 

VOWEL 

2639  E6 

AO 

5280 

AMI 

VOWEL+FRONT 

263B  C2 

42 

26 

5290 

JNZ 

R2JK 

* 

NOT  A  VOWEL  -FRONT 

2  6  3E  7B 

5300 

MOV 

A,E 

263F  CD 

OC 

20 

5310 

CALL 

MATPAK 

• 

CHANGE  COL  X  TO  BACK  CONSONANT 

2642 

5320 

• 

2642 

5330 

*   ADD  4 

TO  CODE 

C=  S/PLOS 

-VOICE/ 

2642 

5340 

*   ADD  4 

TO  CODE 

<=  /PLOS 

-VOICE/WORDBOUND 

2642 

5350 

* 

2642  2A 

00 

35 

5360 

R2JK 

LHLD 

MATPTR 

2645  09 

5370 

DAD 

B 

2646  09 

5380 

DAD 

B 

2647  7E 

5390 

MOV 

A,M 

* 

GET  COL  X  FEATB 

2648  E- 

20 

5400 

XRI 

PLOS 

264A  E6 

60 

5410 

AN  I 

PLOS+VOICE 

264C  02 

76 

26 

5420 

JNZ 

R2L 

• 

NOT  AN  UNVOICED  PLOSIVE 

264F  2A 

00 

15 

5430 

LHLD 

MATPTR 

2652  2B 

5440 

DCX 

H 

2653  7E 

5450 

MOV 

A,M 

« 

GET  CCL  X-l  CODE 

2654  FE 

04 

5460 

CPI 

CTERM 

2656  CA 

5E 

26 

5470 

JZ 

R2JK1 

* 

PLOSIVE  IS  IN  1ST  COL 

2659  FE 

32 

5480 

CPI 

CS 

265B  CA 

6D 

26 

5490 

JZ 

R2JK2 

• 

COL  X-l  IS  S,  DO  THE  RULE 

265E  23 

5500 

R2JK1 

INX 

H 

265F  23 

5510 

INX 

H 

2650  7E 

5520 

MOV 

A,M 

t 

GET  COL  X+l  CODE 

2661  FE 

04 

5530 

CPI 

CTERM 

2563  CA 

F8 

26 

5540 

JZ 

ENDR2 

* 

PLOSIVE  IS  IN  LAST  COL 

2666  09 

5550 

DAD 

B 

2667  7E 

5560 

MOV 

A,M 

* 

GET  COL  X+l  FEATA 

2668  EG 

06 

5570 

AN  I 

WDBND+PHBNO 

266A  CA 

76 

26 

5580 

JZ 

R2L 

* 

NOT  A  BOUNDARY 

266D  2A 

00 

35 

5590 

R2JK2 

LHLD 

MATPTR 

2670  7E 

5600 

MOV 

A,M 

2671  C6 

04 

5610 

ADI 

4 

2673  CD 

OC 

20 

5620 

CALL 

MATPAK 

• 

ADD  4  TO  CODE  IN  COL  X 

2676 

5630 

* 

2676 

5640 

*   -PLOS 

-PLOSA 

<»  /TLBS/OPTIONAL  WDBOUND,STCP 

2676 

5650 

* 

2676  2A 

00 

35 

5660 

R2L 

LHLD 

MATPTR 

2679  54 

5670 

MOV 

P,H 

267A  5D 

5680 

MOV 

F  L 

267B  09 

5690 

DAD 

3 

267C  09 

5700 

DAD 

B 
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AOOR  Bl    B2    B3    E    LINE      LABEL 


OPCD      OPERAND 


267D  7E 

li710 

MOV 

A,M 

2S7E  E6 

20 

5720 

AN  I 

PLOS 

2680  CA 

F8 

26 

■5730 

JZ 

ENDR2 

2683  EB 

5740 

XCHG 

* 

2684  23 

S7S0 

INX 

H 

2685  7E 

5760 

MOV 

A.M 

2686  FE 

04 

5770 

CPI 

CTERM 

2588  CA 

F8 

26 

5780 

JZ 

ENDR2 

268B  FE 

00 

5790 

CPI 

CSPACE 

268D  C2 

97 

26 

S800 

JNZ 

R2L2 

2690  23 

S810 

INX 

H 

2691  7E 

5820 

MOV 

A.M 

2692  FE 

04 

S830 

CPI 

CTERM 

2694  CA 

F8 

26 

S840 

JZ 

ENDR2 

2697  09 

5850  R2L2 

DAD 

B 

2698  09 

5360 

DAD 

B 

2699  7E 

S870 

MOV 

A.M 

269A  E6 

80 

5880 

ANI 

STOP 

269C  CA 

A6 

26 

■5890 

JZ 

R2M  ■ 

269F  1A 

5900 

LDAX 

D 

26A0  E6 

CF 

5910 

ANI 

255-PLC 

26A2  12 

S920 

STAX 

D 

26A3  C3 

F3 

26 

S930 

JMP 

ENDR2 

26A6 

5940  * 

26A6 

5950  *   -PLOSA 

<«  /PLOSA/OPT1 

26A6 

S960  • 

26A6  2A 

00 

35 

5970  R2M 

LHLD 

MATPTR 

26A9  54 

5980 

MOV 

D.H 

26AA  5D 

5990 

MOV 

E.L 

26AB  09 

6000 

DAD 

B 

26AC  09 

6010 

DAD 

B 

26AD  7E 

6020 

MOV 

A.M 

26AE  E6 

10 

6030 

ANI 

PLOSA 

26B0  CA 

F8 

26 

6040 

JZ 

ENDR2 

26B3  EB 

6050 

XCHG 

* 

26B4  23 

6060 

INX 

H 

2635  7E 

6070 

MOV 

A.M 

26B6  FE 

04 

6080 

CPI 

CTERM 

26B8  CA 

F8 

26 

6090 

JZ 

ENDR2 

26BB  FE 

00 

6100 

CPI 

CSPACE 

26BD  C2 

C7 

26 

6110 

JNZ 

R2M2 

26C0  23 

6120 

INX 

H 

26C1  7E 

6130 

MOV 

A.M 

26C2  FE 

04 

6140 

CPI 

CTERM 

26C4  CA 

F8 

25 

6150 

JZ 

ENDR2 

26C7  FE 

1C 

6160  R2M2 

CPI 

CWH 

26C9  CA 

F4 

26 

6170 

JZ 

R2MN 

26CC  FE 

3A 

6180 

CPI 

CHH 

26CE  CA 

F4 

26 

6190 

JZ 

R2MN 

2601 

6200  * 

26D1 

6  210  *   -PLOSA 

<»  -BOUNDARY/) 

26D1 

6220  * 

26D1  2A 

00 

35 

6230  R2N 

LHLD 

MATPTR 

26D4  23 

6240 

INX 

H 

26DS  09 

6250 

DAD 

B 

26D6  7E 

6260 

MOV 

A.M 

26D7  E6 

30 

6270 

ANI 

VOWEL 

*  GET   COL    X    FEATB 

*  NOT    PLOSIVE,    END   GROUP    2 

*  LEAVE    DE   AT   COL    X    FEATB 

*  GET   COL    X+l    CODE 

*  PLOS    IN    LAST   COL,    END   GP    2 

*  X+l    IS    NOT   WDBOUND,    Y-X+l 

*  X+l    IS   WDBOUND,    Y-X+2 

*  WDBOUND    IS    LAST   COL 

*  GET   COL    Y    FEATB 


*  GET   COL   X    FEATB 
5-PLOSA 

*  DELETE    FEATURES    PLOS    t    PLOSA 


*  GET  COL  X  FEATB 

*  NOT  PLOSIVE  ASPIRATE,  END  2 

*  LEAVE  DE  AT  COL  X  FEATB 

*  GET  COL  X+l  CODE 

*  PLOS  ASP  IS  IN  LAST  COL 

*  X+l  IS  NOT  WDBOUND,  Y-X+l 

*  X+l  IS  WDBOUND,  Y-X+2 

*  GET  COL  Y  CODE 

*  WDBOUND  IS  LAST  COL 

«  COL  Y  IS  WH,  DO  THE  RULE 

*  COL  Y  IS  HH,  DO  THE  RULE 


*  GET  COL  X+l  FEATA 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


26D9  CA 
26DC  09 
2600  09 
26DE  7E 
26DF  B7 
26E0  C2 
26E3  2A 
26E6  2B 
26E7  7E 
26E8  FE 
26EA  CA 
26EO  09 
26EE  7E 
26EF  E6 
26F1  C2 
26F4  1A 
26FS  E6 
26F7  12 
26F8 
26F8 
26F8 
26F8  00 
26F9  2A 
26FC  23 
26FD  22 

2700  EB 

2701  2A 
2704  19 
270";  D8 

2706  EB 

2707  C3 
270A 
270A 
270A 
270A 
270A 
270A 
270A 
270A  11 
270D  2A 

2710  19 

2711  D2 
2714  F5 
271-5  2A 

2718  EB 

2719  2A 
271C  19 
271D  70 
271E  2F 
271F  3C 

2720  3C 

2721  32 

2724  6F 

2725  26 
2727  19 
2723  22 
27 2B  2A 


F8  26 


F8  26 
00  3*) 


04 
F8  26 


06 
P8  26 

EF 


00  35 
00  35 
02  35 

81  24 


61  35 
02  35 

OF  20 

00  35 

02  35 


El  36 

00 

DF  36 
DP  36 


6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6330 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 


R2MN 


JZ 

DAD 

DAD 

MOV 

ORA 

JNZ 

LHLD 

DCX 

MOV 

CPI 

JZ 

DAD 

MCV 

AN  I 

JNZ 

LDAX 

ANI 

STAX 


ENDR2 

B 

B 

A,M 

A 

ENDR2 

MATPTR 

H 

A,M 

CTERM 

EHDR2 

B 

A,M 


*  NOT  A  VOWEL 


•  GET  COL  X+l  STRESS 


VOWEL  IS  STRESSED,  END  GP  2 


*  GET  COL  X-l  CODE 


*  GET  COL  X-l  FEATA 


WDBND+PHBND 
ENDR2    * 
D        « 
255-PLOSA 


EITHER  BOUNDARY  STOPS  THE  RULE 
GET  COL  X  FEATB 


END  OF  RULE  GROUP  2 


ENDR2 


NOP 

LHLD 

INX 

SHLD 

XCHG 

LHLD 

DAD 

RC 

XCHG 

JMP 


MATPTR 
H 

MATPTR 

NEGEND 
D 


R2LOOP 


*  DELETE  COL  X  PLOSA  PEATURE 


*  BREAKPOINT  LOT 


•  RETURN  IP  AT  END  OF  MATRIX 


SUBROUTINES 


*   MOVE  DATA  IN  MATRIX  AND  INSERT  A  COLUMN 


MATNSR 


INSR1 


LXI 

LHLD 

DAD 

JNC 

PUSH 

LHLD 

XCHG 

LHLD 

DAD 

MOV 

CMA 

INR 

INR 

STA 

MOV 

MVI 

DAD 

SHLD 

LHLD 


D , MATRI X+M ATLEN- 2 


NEGEND 

D 

MATERR 

PSW 

MATPTR 

NEGEND 

D 

A,L 

A 

A 

COUNT 

L,A 

H,0 

D 

MOVAD 

MOVAD 


*  IS  THERE  ROOM  TO  INSERT 

*  NO 

*  YES,  SAVE  THE  NEW  CODE 

*  COMPUTE  I  OF  COLS  TO  MOVE 


*  COMPUTE  NEW  ADDR  OP  LAST  COL 
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ADDR  Bl  E2  S3  E  LINE   LABEL 


OPCD   OPERAND 


272E 

54 

6850 

MOV 

D,  11 

272F 

5D 

6860 

MOV 

E,L 

2730 

IB 

6870 

DCX 

D 

2731 

3A 

El 

36 

6830 

LDA 

COUNT 

2734 

4F 

6890 

MOV 

C,A 

2735 

1A 

6900  INSR2 

LDAX 

D        * 

2736 

77 

6910 

MOV 

M,A 

2737 

IB 

6920 

DCX 

D 

2738 

2B 

6930 

DCX 

H 

2739 

OD 

6940 

DCR 

c 

273A 

C2 

35 

27 

6950 

JNZ 

INSR2 

273D 

2A 

DF 

36 

6960 

LHLD 

MOVAD    * 

2740 

11 

5F 

00 

6970 

LXI 

D.MATLEN 

2743 

19 

6980 

DAD 

D 

2744 

22 

DF 

36 

6990 

SHLD 

MOVAD 

2747 

11 

21 

f-9 

7000 

LXI 

0,-MATEND 

274A 

19 

7010 

DAD 

D 

274B 

D2 

2B 

27 

7020 

JNC 

INSRl    * 

274E 

Fi 

7030 

POP 

PSW      * 

274F 

CD 

OC 

20 

7040 

CALL 

MATPAK   * 

27S2 

39 

7050 

DAD 

B 

2753 

36 

30 

7060 

MVI 

M,0      « 

2755 

09 

7070 

DAD 

B 

2756 

36 

00 

7080 

MVI 

M,0      « 

2758 

2A 

02 

35 

7090 

LHLD 

NEGEND   * 

275B 

2B 

7100 

DCX 

H 

27  5C 

22 

02 

35 

7110 

SHLD 

NEGEND 

275F 

2A 

00 

35 

7120 

LHLD 

MATPTR   • 

2762 

23 

7130 

INX 

H 

2763 

22 

00 

35 

7140 

SHLD 

MATPTR 

2766 

AF 

7150 

XRA 

A        * 

2767 

C9 

7160 

RET 

2768 

7170  * 

2768 

7180  *   END  OF  SECT2 

*  MOVE  A  ROW  RIGHT  1  LOO 


*  UPDATE  NEW  POINTER 


*  ANY  MORE  ROWS? 

YES 

GET  THE  NEW  CODE 

SET  CODE  AND  FEATURES 

«  PUT  0  STRESS  IN  NEW  COL 

PUT  0  DURATION  IN  NEW  COL 
DONE,  DECREMENT  NEGEND 


AND  INCREMENT  MATPTR 


*  CLEAR  ERROR  CONDITION 
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ACDR  Bl  82  B3  E  LINE   LABEL      OPCD  OPERAND 

2000  0010  *   RULES  GROUP  3 

2000  0020  * 

2000  0030  *   SECTION  3  OF  THE  CSR1  SYNTHESIS  BY  RULE  SYSTEM 

2000  0040  * 

2000  00S0  *   LLOYD  RICE,  COMPUTALKER  CONSULTANTS 

2000  0060  *   VERSION  1.08  MAY  30,  1977 

2000  0070  • 

2000  0080  *#•**•**»« 

2000  0090  * 

2000  0100  *   COMMON  JUMP  ADDRESS  TABLE 

2000  0110  » 

2000  0120  COMJMP      EOU  S 

2000  0130  * 

2000  0140  CSR1        DS  3 

2003  0150  PLAY        DS  3 

2006  0160  BUFADR      DS  2 

2008  0i70  BUFEND      DS  2 

200A  0180  PVTAB       DS  2 

200C  0190  MATPAK      DS  3 

200F  0200  MATERR      DS  3 

2012  0210  RULES       DS  3 

2015  C3  70  27    0220             JMP  SETDUR 

2018  C3  IP  28    0230             JMP  RULES3 

201B  0240  GENFO       DS  3 

20iE  0250  CLREUF      DS  3 

202i  0260  GENPRM      DS  3 

2024  0270  MUL         DS  3 

2027  0280  DIV         DS  3 

202A  0290  DUMMY       DS  16 

203A  0300  * 

203A  0310  •**«*«••*• 

203A  0320  • 

203A  0330  •   COMRAM  ORIGEN  DEFINITION 

203A  0340  • 

203A  0350             ORG  COMJMP+1S00H 

3S00  0360  COMRAM      ECU  $ 

3500  0370  * 

3500  0380  *   CSR1  SYSTEM  RAM  SPACE  DEFINITION 

3500  0390  * 

3500  0400  MATPTR      DS  2 

3502  0410  MEGEND      DS  2 

3504  0420  MATRIX      ECU  $ 

3504  0430  MATLEN      ECU  9S 

3S04  0440  PHCODE      DS  MATLEN 

3S6  3  0450  FEATA       DS  MATLEN 

35C2  0460  FEATB       DS  MATLEN 

3621  0470  STRES       OS  MATLEN 

3680  0480  DUR         DS  MATLEN 

36DF  0490  MATEKD      ECU  S 

36DF  0500  * 

36DF  0510  •   RULES  GROUP  3  (LOCAL)  RAM  WORKSFACE 

36DF  0520  • 

36DF  0530  PREVBD      DS  2 

36E1  0540  NV          DS  1 

36E2  0550  NEXT        DS  1 

36E3  0560  • 

36E3  0570  ••••**••** 
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ADDR  Bl  B2  B3  E  LINE   LABEL      OPCD   OPERAND 

36E3 
36E3 
36E3 
36E3 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770 

2770  1140 


0S80  * 

0S90  «   CSRl  SECTION 

3  CODE 

0600  * 

0610 

ORG 

COMJMP+770H 

C620  SECTAD 

EQU 

$ 

06  3  0  • 

0640  **»**•*•«* 

06S0  * 

0660  *   PHONEME 

CODE 

DEFINITIONS 

0670  * 

0680  CSPACE 

EQU 

0 

0690  CTERM 

EQU 

4 

0700  CUW 

EQU 

14 

0710  CUX 

EQU 

18 

0720  CRX 

EQU 

24 

0730  CLX 

EQU 

2S 

0740  CWX 

EQU 

26 

07SO  CYX 

EQU 

27 

0760  CR 

EQU 

32 

0770  CW 

EQU 

34 

0730  CL 

EQU 

33 

0790  CM 

EQU 

36 

0800  CN 

EQU 

37 

0810  CNX 

EQU 

38 

0820  CP 

EQU 

39 

0830  CT 

EQU 

40 

0840  CK 

EQU 

41 

oaso  CKX 

EQU 

42 

0860  CE 

EQU 

43 

0870  CD 

EQU 

44 

0880  CG 

EQU 

45 

0890  CGX 

EQU 

46 

0900  CDX 

ECU 

47 

0910  CS 

EQU 

SO 

0920  CSH 

EQU 

SI 

0930  CZ 

EQU 

S4 

0940  CZH 

EQU 

SS 

09S0  CO 

EQU 

S9 

0960  » 

0970  *   DEFINE 

FEATURE  LABELS 

0980  * 

0990  VOWEL 

EQU 

80H 

1000  CONS 

ECU 

40H 

1010  FRONT 

EQU 

20H 

1020  DIPHTH 

EQU 

10H 

10  30  WCBND 

EQU 

4 

1040  PHBMD 

EQU 

2 

10S0  IGNORE 

ECU 

1 

1060  STOP 

EQU 

80H 

1070  VOICE 

EQU 

40H 

1080  PLOS 

ECU 

20H 

1090  PLOSA 

EQU 

10H 

1100  FRIC 

ECU 

3 

1110  LIQUID 

ECU 

4 

1120  NASAL 

ECU 

2 

1130  DENTAL 

ECU 

1 
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ADDR    91    B2   B3    E    LINE      LABEL 


OPCD      OPERAND 


2770 

11S0 

********** 

2770 

1160 

* 

2770 

1170 

* 

ALL  DURATIONS 

ARE  ASSIGNED  AND  MANIPULATED 

2770 

1180 

* 

IN  UNITS  OF  2 

5  MSEC 

IN  THIS  SECTION. 

2770 

1190 

* 

FINALLY 

,  AT  THE  END 

OP  RULES3,  THE  DURATION 

2770 

1200 

* 

VALUES 

ARE  DIVIDED  BY  4  TO  GIVE  UNITS  OF 

2770 

1210 

* 

10  MSEC 

,  CORRESPONDING  TO  THE  ACTUAL  FRAME 

2770 

1220 

* 

COUNT  FOR  EACH  PHON 

(EACH  MATRIX  COLUMN). 

2770 

1230 

• 

2770 

1240 

* 

SET  DURATION 

}OW  OF 

MATRIX  FROM  TABLE 

2770 

1250 

* 

2770 

21 

OS 

3S 

1260 

SETDUR 

LXI 

H.MATRIX+1 

2773 

22 

00 

35 

1270 

SHLD 

MATPTR 

2776 

01 

SF 

00 

1280 

LXI 

B.MATL 

EN 

2779 

5E 

1290 

SDLOOP 

MOV 

E.M 

«  GET  CODE  X  INTO  E 

277A 

09 

1300 

DAD 

B 

277B 

09 

1310 

DAD 

3 

277C 

09 

1320 

DAD 

B 

277D 

7E 

1330 

MOV 

A,M 

*  GET  STRESS  X  INTO  A 

277E 

FE 

06 

1340 

CPI 

6 

2780 

FA 

86 

27 

13S0 

JM 

SDl 

2783 

3E 

00 

1360 

MVI 

A,0 

*  STRESS. GT. 5,  SET  IT  TO  0 

278S 

77 

1370 

MOV 

M,A 

2786 

E5 

1380 

SOI 

PUSH 

H 

2787 

C6 

FF 

1390 

ADI 

255 

*  SET  CARRY  IF  A.tJE.O 

2789 

7B 

1400 

MOV 

A,E 

278A 

17 

1410 

RAL 

278B 

5F 

1420 

MOV 

E,A 

278C 

16 

00 

1430 

MVI 

D,0 

278E 

21 

A7 

27 

1440 

LXI 

H , DURTAB 

2791 

19 

1450 

DAD 

D 

*  COMPUTE  LOC  IN  DURATION  TABLE 

2792 

7E 

1460 

MOV 

A,M 

*  GET  DURATION  (IN  2  MSEC  UNITS) 

2793 

El 

1470 

POP 

H 

2794 

09 

1480 

DAD 

B 

2795 

77 

1490 

MOV 

M,A 

*  PUT  OUR  VALUE  IN  THE  MATRIX 

2796 

2A 

00 

3S 

1500 

LHLD 

MATPTE 

2799 

23 

1S10 

INX 

H 

279A 

22 

00 

3S 

1520 

SHLD 

MATPTP 

*  INCREMENT  POINTER 

279D 

EB 

1530 

XCHG 

279E 

2A 

02 

35 

1540 

LHLD 

NEGENC 

27A1 

19 

1550 

DAD 

D 

27A2 

D8 

1560 

RC 

* 

*  RETURN  IF  END  OF  MATRIX 

27A3 

EB 

1570 

XCHG 

27A4 

C3 

79 

27 

1580 

JMP 

SDLOOt 

27A7 

1590 

* 

, 

27A7 

1600 

* 

TABLE  OF  DURATION  VALUES  (IN  2.5  MSEC  UNITS) 

27A7 

1610 

• 

EACH  PHON  HAS 

A  STRESSED  DURATION  VALUE 

27A7 

i620 

* 

AND  AN 

UNSTRESSED  DURATION  VALUE. 

27A7 

1630 

* 

27A7 

00 

1640 

DORTAB 

DB 

0    « 

SPACE  (KDBNf' 

27A8 

00 

1650 

DB 

0 

27A9 

00 

1660 

DB 

0    • 

PERIOD 

27AA 

00 

1670 

DB 

0 

27AB 

48 

1680 

DB 

72   * 

COMMA  (PAUSE) 

27AC 

48 

1690 

DB 

72 

27AD 

00 

1700 

DB 

0    * 

QUEST 

27AE 

00 

1710 

DB 

0 
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ADDS  SI  B2  B3  E  LINE   LABEL 


27AF  00 

1720 

27B0  00 

1730 

27B1  22 

1740 

27B2  2B 

1750 

27B3  ID 

1760 

27B4  22 

1770 

27B5  22 

1780 

27B6  28 

1790 

27B7  IF 

laoo 

27B8  3A 

1810 

27B9  2B 

1820 

27BA  3C 

1830 

27DB  18 

1840 

27BC  2A 

1850 

27BD  30 

1860 

27BE  40 

1870 

27BF  3A 

1880 

27C0  3A 

1890 

27C1  29 

1900 

27C?  2E 

1910 

27C3  24 

1920 

27C4  38 

1930 

27C5  16 

1940 

27C6  18 

19S0 

27C7  16 

1960 

27C8  18 

1970 

27C9  2B 

1980 

27CA  38 

1990 

27CB  24 

2000 

27«:C  38 

2010 

27CD  26 

2020 

27CE  38 

2030 

27CF  30 

2040 

27D0  3A 

2050 

27D1  30 

2060 

27D2  3A 

2070 

27D3  30 

2080 

27D4  3A 

2090 

27D5  35 

2100 

27D6  37 

2110 

27D7  26 

2120 

27D8  30 

2130 

27D9  26 

2140 

27DA  2B 

2150 

27DB  20 

2160 

27DC  20 

2170 

27DD  ID 

2180 

27DE  20 

2190 

27DF  22 

2200 

27E0  2A 

2210 

27E1  00 

2220 

27E2  00 

2230 

27E3  00 

2240 

27E4  00 

22S0 

27E5  00 

2260 

27E6  00 

2270 

27E7  1C 

2280 

OPCD 

OPERAND 

DB 

0    • 

TERM 

DB 

0 

DB 

34   • 

IY,  UNSTRESSED 

DB 

43   • 

IY,  STRESSED 

DB 

29   * 

IH,  UNSTRESSED 

DB 

34   • 

IH,    ETC. 

DB 

34   » 

EH 

DB 

43 

DB 

31   * 

AE 

DB 

S8 

DB 

43   * 

AA 

DB 

60 

DB 

24   * 

AH 

DB 

42 

DB 

48   ' 

AO 

DB 

64 

DB 

58   • 

OW 

DB 

58 

DB 

41   « 

OH 

DB 

46 

DB 

36   * 

uw 

DB 

56 

DB 

22   • 

AX 

DB 

24 

DB 

22   * 

IX 

C3 

24 

DB 

43   < 

ER 

DB 

56 

, 

DB 

36   < 

ux 

DB 

56 

DB 

38   ' 

'  OH 

DB 

56 

DB 

48   ' 

•  AW 

DB 

58 

DB 

48 

•  AY 

DB 

58 

DB 

48 

'  OY 

DB 

58 

DB 

■  53 

•  EY 

DB 

55 

D8 

38 

•  RX 

DB 

48 

DB 

38 

•  LX 

DB 

43 

DB 

32 

•  KX 

DB 

32 

DB 

29 

*  YX 

DB 

32 

DB 

34 

*  WH 

DB 

42 

DB 

0 

•  EL 

DB 

3 

DB 

0 

*  EM 

DB 

0 

DB 

0 

*  EN 

DB 

0 

DB 

28 

*  R 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2300 

2810 

2320 

2330 

2340 

2aso 


27E8 

23 

27E9 

Id 

27EA 

22 

27EB 

20 

27EC 

20 

27ED 

13 

27EE 

20 

27EF 

10 

27F0 

IE 

27F1 

K 

27F2 

IE 

27F3 

1C 

27F4 

IE 

27F5 

20 

27F6 

20 

27F7 

10 

27F3 

13 

27F9 

18 

27FA 

13 

27FB 

18 

27FC 

13 

27FD 

18 

27FE 

1A 

27FF 

12 

2300 

14 

2801 

13 

2302 

13 

2303 

18 

2804 

13 

2805 

OA 

2306 

or 

2307 

2A 

2808 

20 

2809 

26 

280A 

23 

280B 

30 

2300 

30 

280D 

20 

230E 

20 

2&:f 

1A 

2810 

IE 

2811 

18 

2812 

13 

2813 

13 

2314 

18 

2315 

Id 

2616 

18 

2317 

00 

23i3 

00 

2di9 

00 

2dlA 

00 

23iB 

13 

231C 

1C 

231D 

OA 

281E 

OA 

231F 

231F 

OPOD 

OPERAND 

DB 

40 

DB 

24 

*  L 

DB 

34 

DB 

32 

*  W 

DB 

32 

DB 

24 

•  If 

DB 

32 

DB 

28 

*  M 

DB 

30 

DB 

28 

*  M 

DB 

30 

DB 

23 

*  NX 

DB 

30 

DB 

32 

*  P 

DB 

32 

DB 

16 

*  T 

DB 

24 

DB 

24 

*  K 

DB 

24 

DB 

24 

*  KX 

DB 

24 

DB 

24 

»  B 

DB 

26 

DB 

16 

*  D 

DB 

20 

DB 

24 

»  G 

DB 

24 

DB 

24 

*  GX 

DB 

24 

DB 

10 

*  DX 

DB 

12 

DB 

42 

*  F 

DB 

44 

DB 

33 

*  TH 

DB 

40 

DB 

48 

*  S 

DB 

48 

DB 

44 

*  SH 

DB 

44 

DB 

26 

*  V 

DB 

30 

DB 

24 

•  DH 

DB 

24 

DB 

24 

*  Z 

DB 

24 

DB 

24 

*  ZH 

DB 

24 

DB 

0 

*  CH 

DB 

0 

DB 

0 

*  JH 

DB 

0 

DB 

24 

*  HH 

DB 

23 

DB 

10 

*  Q. 

DB 

10 
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ADDR    Bl    B2  B3    E    CINE      LABEL  OPCD  OPERAND 

281F  2860  • 

281F  2870  *  RULES  GROUP  3 

281F  2880 

281F  2890 

281F  2900  * 

281F  00  2910  RULES3  NOP 

2820  AF  2920  XRA  A 

2821  32  El  36    2930  .  STA  NV       *  CLEAR  VOWEL  COUNTER  (RULE  3A) 
2824  32  E2  36    2940  STA  NEXT     *  CLEAR  NEXT  (RULE  38) 

2827  01  5F  00    2950  LXI  B.MATLEN 

282A  21  OS  35    2960  LXI  H.MATRIX+1 

282D  22  00  35    2970  SIILD  MATPTR 

28  30  2980  R3LOOP  ECU  S 

2330  2990  * 

2830  3000  * 

28  30  3010  *  IN  THE  SPAN  BETWEEN  TWO  WORD  OR  PHRASE  BOUNDARIES 

2330  3020  *  CHANGE  THE-  DURATION  OF  EACH  STRESSED  VOWEL 

2830  3030  *  BY  (NV+1 )  /  (2*NV)  ,  WHERE  NV  IS  THE  NUMBER  OF 

28  30  3040  *  VOWELS  IN  THE  SPAN. 

2830  3050  * 

28  JO  09  3060  R3A  DAD  B 

2831  01  El  36    3070  LXI  B,NV 

2834  7E  3080  MOV  A,M      »  GET  COL  X  FEATA 

2835  E6  06  3090  ANI  WD8ND+PHBND 

2837  C2  46  28    3100  JNZ  R3A2     *  EITHER  BOTJNO,  COMPUTE  THE  SPAN 

203A  7E  3110  MOV  A,M      *  NOT  A  BOUNDARY,  IS  IT  A  VOWEL? 

283B  E6  80  3120  ANI  VOWEL 

233D  CA  AB  28    3130  JZ  R3B      »  NO 

2<,l0  0A  3140  LDAX  B        *  YES,  INCREMENT  NV 

2841  3C  3150  INR  A 

2842  02  3160  STAX  B 
284  3  <~.'}    AB  28    3170  JMP  R3B 

2346  OA  3180  R3A2  LDAX  B        *  GET  NV 

2347  FE  02  3190  CPI  2 

2849  DA  Al  28    3200  JC  R3A5     *  0  OR  1  VOWEL,  NO  DUR  CHANGE 
284C  3C  3210  INR  A 

284D  6F  3220  MOV  L,A      «  PUT  (N+i)*64  IN  HL 

284E  26  00  3230  MVI  H,0 

2850  29  3240  DAD  H 
2351  29  3250  DAD  H 
2852  29  3260  DAD  H 

2353  29  3270  DAD  H 

2354  29  3280  DAD  H 

2355  29  3290  DAD  H 

23  56  EB  3  300  XCHG  *        *  THEN  INTO  DE 

2357  OA  3310  LDAX  B        *  GET  NV  AGAIN 

2858  6F  332,0  MOV  L,A 

2355  26  00  3330  MVI  H,0 

235B  23  3340  INX  K 

285C  CD  27  20    3  350  CALL  DIV      «  RESULT  IS  DUR  RATIO  IN  64THS 

235F  7D  3360  MOV  A,L 

2860  02  3370  STAX  B        •  SAVE  IT  IN  NV 

2861  2A  DF  36    3380  LHLD  PREVBD 
2364  23  3390  INX  H 

2865  7C  3400  MOV  A,H      *  -(PREVBD) -2  INTO  DE 

2866  2F  3410  CMA 

2867  57  3420  POV  D.A 
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MOV    A , L 
CMA 


2868 

7D 

3430 

2869 

2F 

3440 

206A 

V 

3450 

286B 

2A 

00 

3") 

3460 

286E 

19 

3470 

286F 

5C 

3480 

2870 

01 

5F 

00 

3490  H3A3 

2873 

2A 

DF 

36 

3S00 

2876 

23 

3510 

2377 

22 

DF 

36 

3520 

287A 

09 

3530 

287B 

7E 

3540 

287C 

E6 

30 

3550 

237E 

CA 

9D 

23 

3550 

2381 

09 

3  57  0 

2882 

09 

3530 

2883 

7E 

3590 

2834 

97 

3600 

2385 

CA 

90 

28 

3610 

2888 

09 

3620 

2889 

3A 

El 

36 

3630 

288C 

47 

3640 

288D 

DS 

3650. 

288E 

5E 

3660 

288F 

CD 

24 

20 

3670 

2392 

EB 

3680 

2893 

29 

3690 

2894 

29 

3700 

2895 

EB 

3710 

2896 

7B 

3720 

2897 

17 

3730 

2898 

7A 

3740 

2899 

CE 

00 

3750 

239B 

77 

3760 

239C 

Dl 

3770 

289D 

ID 

3780  R3A4 

239E 

C2 

70 

28 

3790 

28A1 

AF 

3800  R3A5 

28A2 

12 

El 

36 

3810 

28A5 

2A 

00 

35 

3320 

23A8 

22 

DF 

36 

3830 

28AB 

3840  • 

28AB 

3850  •   D 

28Ae 

3860  * 

23AB 

2A 

00 

55 

3870  R3B 

23AE 

01 

SF 

00 

3830 

23B1 

09 

3890 

23B2 

7E 

3900 

28B3 

E6 

02 

3910 

28B5 

CA 

D8 

28 

3920 

23B8 

28 

3930  R3B2 

2339 

7E 

3940 

289A 

E6 

02 

3950 

28BC 

<"2 

D3 

28 

3960 

23BF 

E5 

3970 

23C0 

09 

3980 

28C1 

09 

3990 

MOV  E,A 

LHLD  MATPTR 

DAD  D        *  (MATPTR)- (PREVBD) -2  INTO  HI 

MOV  E,L      *  E  IS  COL  COUNTER  FOR  THE  SPAN 

LXI  B.MATLEN 

LHLD  PREVBD 

INX  H        *  SCAN  THE  SPAN 

SHLD  PREVBD 

DAD  B 

MCV  A,M      *  GET  FEATA 

AN  I  VOWEL 

JZ  R3A4     *  NOT  A  VOWEL 

DAD  B 

DAD  a 

MOV  A,M      *  GET  THE  STRESS  VALUE 

ORA  A 

JZ  R3A4     *  VOWEL  NOT  STRESSED 

DAD  B 

LDA  NV 

MOV  E,A 

PUSH  D 

MOV  E,M      *  PUT  OLD  DURATION  IN  DE 

CALL  MUL      *  NEW  DUR  *64  IN  HL 

XCHG 

DAD  H 

DAD  H 

XCHG 

MOV  A,E      *  NEW  DUR  INTO  A 

RAL 

MOV  A,D 

AC  I  0 

MOV  M,A 

POP  D 

DCR  E 

JMZ  R3A3 

XRA  A 

STA  HV       *  CLEAR  THE  VOWEL  COUNTER 

LHLD  MATPTR 

SHLD  PREVBD   *  UPDATE  PREVBD 

•   DUR*1.38  <-  /LAST  VOWEL  OF  A  PHRASE,  .../PHEND 


LHLD 

MATPTR 

LXI 

B.MATLEN 

*  RESTORE  BC 

DAD 

B 

NOV 

A,M 

*  GET  COL  X  FEATA 

ANI 

PHBND 

JZ 

R3C 

DCX 

H 

MOV 

A,M 

*  GET  PREV  COL  FEATA 

ANI 

PHBND 

JNZ 

R3C 

*  STOP  SCAN  IF  PHBOUMD 

PUSH 

H 

DAD 

B 

DAD 

B 
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28C2    09 

4000 

DAD 

B 

28C3    46 

4010 

MOV 

a.K 

*   GET    PRESENT    DUR    INTO    B 

28C4    IE    SB 

4020 

MVI 

E,S8H 

*    1. 38     (SHIFTED)     INTO    E 

28C6  CD    24 

2C 

4030 

CALL 

MUL 

*     (B) «(E)     INTO    DE 

28C9    EB 

4040 

XCHG 

28CA    29 

40S0 

DAD 

H 

*    SHIFT    BIN    PT   TO   BYTE    BOUNDARY 

28CB    29 

4060 

DAD 

H 

28CC    EB 

4070 

XCHG 

28CD    72 

4030 

MOV 

M,D 

*    UPDATE    DURATION 

28CE    El 

4090 

POP 

H 

28CF    01    SF 

00 

4100 

LX1 

B.MATLEN    «    RESTORE    B,C,H,L 

28D2    7E 

4110 

MOV 

A,M 

*    GET    FEATA    AGAIN 

2803    E6    80 

4120 

ANI 

VOWEL 

23D5   CA    B8 

28 

4130 

JZ 

R3B2 

*    NOT    A    VOWEL,    CONTINUE 

23D8 

4i40 

* 

2808 

41S0 

*      DUR*0. 

6    <»    /VOWEL/PLOS     ~VOIrE 

28D8 

4160 

* 

28D8    00 

4170 

R3C 

NOP 

28DJ    2A    00 

35 

4180 

LHLD 

MATPTR 

23DC    09 

4190 

DAD 

B 

23DD    7E 

4200 

MOV 

A,M 

•    GET   COL    X    FEATA 

23DE    E6    80 

4210 

ANI 

VOWEL 

28E0    CA    39 

29 

4220 

JZ 

R3F 

*    NOT   A    VOWEL 

28E3    2A    00 

35 

4  2  30 

LHLD 

MATPTR 

28E6    23 

4240 

INX 

H 

28E7    7E 

4250 

MOV 

A,M 

*   GET   COL    X+l    CODE 

28E8    FE    04 

4260 

CPI 

CTERM 

23EA   CA    DD 

2A 

4270 

JZ 

ENDR3 

28ED    09 

4230 

DAD 

B 

28EE    09 

4290 

DAD 

B 

28EF    7E 

4300 

MOV 

A,H 

*    GET   COL    X+l    FEATB 

28F0    EE    20 

4310 

XRI 

PLOS 

28F2    E6    60 

4320 

ANI 

PLOS+VOICE 

28F4    C2    FC 

28 

4330 

JHZ 

R3D 

*    NOT   AN    UNVOICED    PLOSIVE 

28F7    IE    26 

4340 

MVI 

E,  26H 

*    OK,    MULTIPLY    BY    0.6     (SHIFTED) 

28F9   C3    27 

29 

4350 

JMP 

R3CDE 

28FC 

4360 

• 

23FC 

4370 

*      DUR*1 

25    C-    /VOWEL/FRIC    VOICE 

28FC 

4380 

• 

28FC    7E 

4390 

R3D 

MOV 

A,M 

*   GET   COL    X+l    FEATB    AGAIN 

28FD    2F 

4400 

CMA 

28FE    E6    48 

4410 

ANI 

FRIC+VOICE 

2900    C2    08 

29 

4420 

JNZ 

R3E 

*    NOT    A    VOICED    FRICATIVE 

2903    IE    SO 

4  130 

MVI 

E,  50H 

*    SET    MULTIPLIER    TO    1.25    (*64) 

290S   C3    27 

29 

4440 

JMP 

R3CDE 

2908 

4450 

• 

2908 

'1460 

*      DUR*0 

.5    <-    /VOWEL/RX 

OR    LX.CONS 

2908 

4470 

* 

2908    2A    00 

35 

4430 

R3E 

LHLD 

MATPTR 

290B    23 

4490 

INX 

H 

290C    7E 

4500 

MOV 

A,M 

*    GET   COL    X+l    CODE 

290D    FE    18 

4510 

CPI 

CRX 

290F    CA    17 

29 

4520 

JZ 

R3E2 

2912    FE    19 

4530 

CPI 

CLX 

2914    C2    DD 

2A 

4540 

JNZ 

ENDR3 

*    ;10   GOOD,    END   GROUP    3 

2917    23 

4550 

R3E2 

INX 

H 

2918    7E 

4  560 

MOV 

A,« 

*    GET    COL    X+2    CODE 
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2919  FE  04 

4570 

CPI 

CTERM 

291B  CA  DO  2A 

4580 

JZ 

ENDR3 

*  X+l  IS  LAST  COL 

29iE  09 

4590 

DAD 

B 

291F  7E 

4600 

MOV 

A,M 

*  GET  COL  X+2  FEATA 

2920  E6  40 

4610 

AN  I 

CONS 

2922  CA  DD  2A 

4620 

JZ 

ENDR3 

«  NOT  A  CONSONANT 

2925  IE  20 

4630 

MVI 

E.20H 

*  SET  MULTIPLIER  TO  0.5  (* 

2927  2A  00  3S 

4640  R3CDE 

LHLD 

MATPTR 

292A  09 

4650 

DAD 

B 

292B  09 

4660 

DAD 

B 

292C  09 

4670 

DAD 

B 

292D  46 

4680 

MOV 

B,M 

»  GET  COL  X  DURATION 

292E  CD  24  20 

4690 

CALL 

MUL 

*  MULTIPLY  IT  BY  (E) 

2931  EB 

4700 

XCHG 

2932  29 

4710 

DAD 

H 

2933  29 

4720 

DAD 

H 

*  MOVE  THE  BIN  POINT 

2934  EB 

4730 

XCHG 

2935  72 

4740 

MOV 

M,D 

*  (,    SET  NEW  DURATION 

2936  C3  DD  2A 

4750 

JMP 

ENDR3 

*  GOTO  END  OF  GROUP 

2939 

4760  * 

2939 

477C  *   DUR«90 

MSEC  < 

■  S/(W  OR  H  OR  Li  STRESS. J7T.0//VOWE 

2939 

4780  • 

29  39  2A  00  3S 

4790  R3F 

LHLD 

MATPTR 

293C  7E 

4800 

MOV 

A,M 

*  GET  COL  X  CODE 

293D  FE  22 

4810 

CPI 

CW 

292F  CA  4C  29 

4820 

JZ 

R3F2 

2942  FE  20 

4830 

CPI 

CR 

2944  CA  4C  29 

4340 

JZ 

R3F2 

2947  FE  21 

4850 

CPI 

CL 

2949  C2  8D  29 

4860 

JNZ 

R3H 

*  NOT  W  OR  R  OR  L 

294C  09 

4970  R3F2 

DAD 

B 

294D  09 

4380 

DAD 

B 

29 4E  09 

4890 

DAD 

B 

294F  7E 

4900 

MOV 

A,M 

*  GET  COL  X  STRESS 

2950  B7 

4910 

ORA 

A 

29S1  F2  AD  29 

4920 

JP 

R3I 

*  STRESS. GE.O 

2954  2A  00  15 

4930 

LHLD 

MATPTR 

2957  23 

4940 

INX 

H 

29S9  7E 

4950 

MOV 

A,M 

*  GET  COL  X+l  CODE 

2959  FE  04 

4960 

CPI 

CTERM 

2353  CA  30  29 

4970 

JZ 

R3H 

*  W,R,  OR  L  IS  IN  LAST  COL 

295E  19 

4930 

DAD 

B 

2  9  5F  7E 

4  390 

MCV 

A,.M 

*  GET  COL  X+l  FEATA 

296J  E6  30 

5000 

AN  I 

VOWEL 

2362  CA  50  29 

5010 

JZ 

R3H 

*  MOT  A  VOWEL 

2365  2A  ;0  35 

5320 

LHLD 

MATPTR 

296i  23 

5030 

DCX 

H 

2J69  7E 

5040 

MCV 

A,M 

•  GET  COL  X-l  CODE 

296A  FE  04 

5050 

CPI 

CTERM 

236C  r\    30  29 

5060 

JZ 

R3H 

•  W,  R,  OR  L  IS  IN  1ST  COL 

296F  FE  32 

5070 

CPI 

CS 

297i  09 

5030 

DAD 

8 

2972  09 

5090 

DAD 

B 

*  MOVE  HL  TO  COL  X-i  FEATB 

2373  C2  7E  29 

5100 

JNZ 

R3G 

*  NO  S  CN  COL  X-l 

2976  23 

5110 

INX 

K 

297T  09 

5120 

DAD 

a 

297b  09 

5130 

DAD 

B 
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2979  36  24 

5140 

MVI 

M,36 

«  SET  DURATION  TO  90  MSEC 

297B  C3  8D 

29 

5150 

JMP 

R3H 

297E 

S160 

* 

297E 

5170 

*   DUR+20 

MSEC  < 

■  PLOS  - 

VOICE/ (W  OR  R  OR  L) 

297E 

5180 

* 

STRESS. LT.O/VOWEL 

297E 

5190 

* 

297E  7E 

5200 

R3G 

MOV 

A,M 

•  GET  COL  X-l  FEATB 

297F  EE  20 

5210 

XRI 

PLOS 

2981  E6  60 

5220 

AN  I 

PLOS +VO  ICE 

2983  C2  80 

29 

5230 

JNZ 

R3H 

•  NOT  AN  UNVOICED  PLOSIVE 

2986  23 

5240 

INX 

H 

2987  09 

5250 

DAD 

B 

2938  09 

5260 

DAD 

B 

2989  7E 

5270 

MOV 

A,M 

*  GET  COL  X  STRESS 

298A  C6  08 

5280 

AD  I 

8 

*  ADD  20  MSEC 

298C  77 

5290 

MOV 

M,A 

298D 

5300 

* 

2980 

5310 

*   DUR*0. 

3  <=■  /CONS  STRESS. LT.  0/ 

2980 

5320 

* 

298D  2A  00 

35 

5330 

R3H 

LHLD 

MATPTR 

2990  09 

5340 

DAD 

B 

2991  09 

5350 

DAD 

B 

2992  7E 

5360 

MOV 

A,K 

*  GET  COL  X  FEATB 

2993  E6  40 

5370 

AN  I 

CONS 

299S  CA  DO 

2A 

5380 

JZ 

ENDR3 

*  NOT  A  CCNS,  END  OF  GROU 

2998  09 

5390 

DAD 

B 

2999  ">E 

5400 

MOV 

A,M 

*  GET  COL  X  STRESS 

299A  67 

5410 

ORA 

A 

299B  F2  AD 

29 

5420 

JP 

R3I 

*  STRESS  IS  NOT  NEGATIVE 

299E  09 

5430 

DAD 

B 

299F  46 

5440 

MCV 

B.rt 

*  GET  COL  X  DURATION 

29A0  IE  33 

5450 

MVI 

E,33H 

*  MULTIPLY  BY  0.8 

29A2  CD  24 

20 

5460 

CALL 

MUL 

29AS  EB 

5470 

XCHG 

29A6  29 

5480 

DAD 

H 

*  SHIFT  IT  OVER 

29A7  29 

5490 

DAD 

H 

29A8  EB 

5500 

XCHG 

29A9  72 

5510 

MOV 

M,D 

*  SET  NEW  DUR 

29AA  01  5F 

00 

5520 

LXI 

B , MATLEB 

2 -J  AD 

5530 

* 

29AD 

5540 

*   DUR-70 

,60  MSEC  <-  /T 

STRESS. GE.0.SH  STRESS. GE.O 

29AD 

5550 

* 

29AD  2A  00 

35 

5560 

R3I 

LHLD 

MATPTR 

29B0  54 

5570 

MOV 

D,H 

29B1  SO 

5580 

MOV 

E,L 

29B2  13 

5590 

INX 

D 

29B3  7E 

5600 

MOV 

A,K 

*  GET  COL  X  CODE 

29B4  FE  28 

5610 

CPI 

CT 

29B5  C2  DO 

29 

562C 

JNZ 

R3J 

*  NOT  T,  TRY  RULE  3J 

29U9  1A 

5630 

LDAX 

D 

*  GET  COL  X+l  CODE 

29BA  FE  04 

5640 

CPI 

CTERM 

29BC  CA  78 

2A 

5650 

JZ 

R3N 

•  T  IS  IN  LAST  COL 

299F  FE  33 

5660 

CFI 

CSH 

29C1  C2  78 

2A 

5670 

JNZ 

R3N 

*  T  BUT  NO  SH,  TRY  RULE  3 

29C4  09 

5680 

DAD 

3 

29C5  09 

5690 

DAD 

B 

29C6  09 

5700 

DAO 

B 
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29C7  7E 

S710 

29C8  FE 

01 

5720 

29CA  FA 

06 

2A 

5730 

29CD  23 

5740 

29CE  7E 

5750 

29CF  FE 

01 

5760 

29D1  FA 

78 

2A 

■5770 

29D4  09 

5780 

29D5  36 

18 

5790 

29D7  2B 

■5800 

29D8  36 

1C 

5810 

29DA  C3 

78 

2A 

5820 

29DD 

5830 

290D 

5840 

29DO 

5850 

29DD  FE 

2C 

5860 

29DF  C2 

26 

2A 

5870 

29E2  1A 

5380 

29E3  FE 

04 

5890 

29ES  CA 

78 

2A 

5900 

29E8  FE 

37 

5910 

29EA  C2 

78 

2A 

5920 

29ED  09 

5930 

29EE  09 

5940 

29EF  09 

5950 

29F0  7E 

5960 

29F1  FE 

01 

5970 

29F3  FA 

IS 

2A 

5980 

29F6  23 

5990 

29F7  7E 

6000 

29F8  FE 

01 

6010 

29FA  FA 

78 

2A 

6020 

29FD  09 

6030 

29FE  36 

14 

6040 

2A00  23 

6050 

2A01  36 

1C 

6060 

2A03  C3 

78 

2A 

6070 

2A06 

6080 

2A06 

6090 

2A06 

6100 

2A06  23 

6110 

2A07  7E 

6120 

2A08  FE 

01 

6130 

2A0A  F2 

78 

2A 

6140 

2A0D  09 

6150 

2A0E  36' 

'  10 

6160 

2A10  2B 

6170 

2A11  36 

18 

6180 

2A13  C3 

78 

2A 

6190 

2A16 

6200 

2A16 

6210 

2A16 

6220 

2A16  23 

6230 

2A17  7E 

6240 

2A13  FE 

01 

6250 

2AlA  FA 

78 

2A 

6260 

2A1D  09 

6270 

DUR- 


R3J 


DUR- 


R3K 


DUR" 


R3L 


MOV 

A,M 

CPI 

1 

JM 

R3K 

INX 

H 

MOV 

A,M 

CPI 

1 

JM 

R3N 

DAD 

B 

MVI 

M,24 

DCX 

H 

MVI 

M,28 

JMP 

R3N 

iO  MSEC  <=  /I 

CPI 

CD 

JNZ 

R3M 

LDAX 

D 

CPI 

CTERM 

JZ 

R3N 

CPI 

CZH 

JNZ 

R3N 

DAD 

B 

DAD 

B 

DAD 

B 

MOV 

A,M 

CPI 

1 

JH 

R3L 

INX 

H 

MOV 

A,M 

CPI 

1 

JM 

R3N 

DAD 

B 

MVI 

M,20 

DCX 

H 

MVI 

M,28 

JMP 

R3N 

40  MSEC  <»  / 

INX 

H 

MOV 

A,M 

CPI 

1 

JP 

R3N 

DAD 

B 

MVI 

M,16 

DCX 

H 

MVI 

M,24 

JMP 

R3N 

30  MSEC  <-  / 

INX 

H 

MOV 

A,M 

CPI 

1 

JM 

R3N 

DAD 

B 

*  GET  COL  X  STRESS 

*  T  UNSTRESSED,  TRY  RULE  3K 

*  GET  COL  X+l  STRESS 

*  SH  UNSTRESSED,  TRY  RULE  3N 

*  SET  COL  X+l  DUR  TO  60  MSEC 

*  SEL  COL  X  DUR  TO  70  MSEC 


*  NOT  T  OR  D,  TRY  RULE  3M 

*  D  IS  IN  LAST  COL 

*  D  BUT  NO  ZH,  TRY  RULE  3N 

*  GET   COL  X  STRESS 

«  D  UNSTRESSED,  TRY  RULE  R3L 

*  GET  COL  X+l  STRESS 

»  ZH  UNSTRESSED,  TRY  RULE  3N 

*  SET  X+l  DUR  TO  50  MSEC 

*  SET  X  DUR  TO  70  MSEC 


*  GET  COL  X+l  STRESS 

*  SH  IS  STRESSED,  TRY  RULE  3N 

*  SET  COL  X+l  DUR  TO  40  MSEC 

*  SET  COL  X  DUR  TO  60  MSEC 
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2A1E    36 
2A20    2B 
2A21    36 
2A23   C3 
2A26 
2A26 
2A26 
2A26 
2A26    FE 
2A2B    CA 
2A2Q    FE 
2A2D   CA 
2A30    FE 
2A32    CA 
2A35   C3 
2A38    1A 
2A39    FE 
2A3B    CA 
2A3E    FE 
2A4G    CA 
2A43    C3 
2A46    1A 
2A47    FE 
2A49    CA 
2A4C    FE 
2A4E    CA 
2A51    C3 
2A54    1A 
2A55    FE 
2At7   CA 
2A5A    FE 
2A5C    CA 
2A5F    FE 
2A61    CA 
2A64    FE 
2A66    CA 
2A69    C3 
2A6C    09 
2A6D    09 
2A6E    09 
2A6F 
2A70 
2A72    23 
2A73    36 
2A7S   C3 
2A78 
2A78 
2A78 
2A78    2A 
2A7B    09 
2A7C    09 
2A7D    7E 
2A7E    E6 
2A80    CA 
2A83    2A 
2A86    2B 
2A87    7E 


OC 

10 
78    2A 


24 

38    2A 
25 

46    2A 
26 

54    2A 
78    2A 

27 
6C    2A 

23 

6C    2A 

DD    2A 

28 

6C    2A 

2C 

6C    2A 

DD    2A 

29 

6C    2A 
2A 

6C    2A 
2D 

6C    2A 
2E 

6C    2A 
DD    2A 


DUR< 


09 
36 


OC 


OC 
DD    2A 


00    35 


20 

DD    2A 
00    35 


6280 

6290 

6300 

6310 

6320 

6330 

6340    * 

6350    • 

6360    R3M 

6370 

6380 

6390 

6400 

6410 

6420 

6430    R3M2 

6440 

6450 

6460 

6470 

6480 

6490    R3M3 

6500 

6510 

6520 

6530 

6540 

6550    R3M4 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650    R3M5 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730    * 

6740 

6750    * 

6760    R3N 

6770 

6780 

6790 

6800 

6810 

6820 

6S30 

6840 


MVI  H,12 

OCX  H 

MVI  M.16 

JMP  R3N 

■30,30    MSEC    <»    /(M, 
(NX 


CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

JMP 

LDAX 

CPI 

JZ 

CPI 

JZ 

JMP 

LDAX 

CPI 

JZ 

CPI 

JZ 

JMP 

LDAX 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

JMP 

DAD 

DAD 

DAD 

DAD 

MVI 

INX 

MVI 

JMP 


CM 

R3M2 

CN 

R3M3 

CNX 

R3M4 

R3N 

D 

CP 

R3M5 

CB 

R3M5 

ENDR3 

D 

CT 

R3M5 

CD 

R3M5 

ENDR3 

D 

CK 

R3M5 

CKX 

R3M5 

CG 

R3M5 

CGX 

R3M5 

ENDR3 

B 

B 

B 

B 

M,12 

H 

M,12 

ENDR3 


SET   COL    X+l    DUR   TO    30    MSEC 
SET   COL   X    DUR    TO    40    MSEC 


OR    B)    OR     (N,T  OR    D)    OR 
K   OR    XX   OR   G   OR   GX)/ 


TEST   COL    X   CODE 
IT'S    M 


IT'S    N 
IT'S    NX 


IT'S    K,P 

IT'S    M,B 

IT'S    SOMETHING    ELSE 


IT'S    N,T 

IT'S    N,D 

IT'S    SOMETHING    ELSE 


IT'S    NX,X 

IT'S    NX.KX 

IT'S    NX,G 

IT'S    HX.GX 

IT'S    SOMETHING    ELSE 


SET   COL   X    DUR    TO    30    MSEC 
SET   COL    X+l    DUR   TC    30    MSEC 


DUR*0.5    <-    PLOS, OPTIONAL   WDBOUND/PLOS/ 


LHLD  MATPTR 

DAD  B 

DAD  B 

MOV  A , M 

AN  I  PLOS 

JZ  ENDR3 

LHLD  MATPTR 

DCX  H 

MOV  A , M 


*  GET  COL  X  FEATB 

»  NOT  A  PLOSIVE,  END  OP  GROUP 

*  GET  COL  X-l  CODE 
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ADDR    Bl    02   83    E    LINE       LABEL 


OPCD      OPERAND 


2A88  FE  04 

68S0 

CPI 

CTERM 

2A6A  CA  A6 

2A 

6860 

JZ 

R3N3 

»  X  IS  1ST  COL.  TRY  PLOS  AFTER 

2A8D  S4 

6870 

MOV 

D,H 

2A8E  SO 

6880 

MOV 

E,L 

2A8F  09 

6390 

DAD 

B 

2A90  7E 

6900 

MOV 

A,M 

*  GET  COL  X-l  FEATA 

2A91  E6  04 

6910 

ANI 

WDBND 

2A93  CA  9F 

2A 

6920 

JZ 

R3N2 

*  NOT  A  WDBND,  TEST  FOR  PLOS IV 

2A96  SB 

6930 

XCHG 

2A97  2B 

6940 

DCX 

H 

2A96  7E 

69'iO 

MOV 

A,M 

*  GET  COL  X-2  CODE 

2A99  FE  04 

6960 

CPI 

CTERM 

2A9B  CA  A6 

2A 

6970 

JZ 

R3N3 

2A9E  09 

6980 

DAD 

B 

2A9F  09 

6990 

R3N2 

DAD 

B 

*  MOVE  TO  FEATB 

2AA0  7E 

7000 

MOV 

A.M 

2AA1  E6  20 

7010 

ANI 

PLOS 

2AA3  C2  C9 

2A 

7020 

JNZ 

R3NS 

*  OK,  DO  RULE  3N 

2AA6 

7030 

» 

2AA6 

7040 

*   DUR*0. 

5  <=»  /PLOS/OPTIONAL  WDBOUND.PLOS 

2AA6 

70S0 

• 

2AA6  2A  00 

3S 

7060 

R3I13 

LHLD 

MATPTR 

2AA9  23 

7070 

INX 

H 

2AAA  7E 

7030 

MOV 

A,M 

*  GET  COL  X+l  CODE 

2AAe  FE  04 

7090 

CPI 

CTERM 

2AAD  CA  DO 

2A 

7100 

JZ 

ENDR3 

*  X  IS  LAST  COL,  END  CROUP 

2AB0  ^ 

7110 

MOV 

D,H 

2ABi  SD 

7120 

MOV 

E,L 

2AB2  09 

7130 

DAD 

B 

2A3  3  7E 

7140 

MOV 

A,M 

*  GET  COL  X+i  FEATA 

2AB4  E6  04 

71S0 

ANI 

WDBND 

2AE6  CA  C2 

2A 

7160 

JZ 

R3N4 

*  NOT  A  WDBND,  TEST  FOR  PLOS 

2A39  EB 

7170 

XCHG 

2ABA  23 

7180 

INX 

11 

2ABB  7E 

7190 

MOV 

A.M 

*  GET  COL  X+2  CODE 

2ABC  FE  04 

7200 

CPI 

CTERM 

2ABE  CA  DD 

2A 

7210 

JZ 

EMDR3 

2AC1  09 

7220 

DAD 

0 

2 AC  2  09 

72  30 

R3S4 

DAD 

B 

*  MOVE  TO  FEATB 

2AC3  7E 

7240 

MOV 

A,M 

2AC4  E6  20 

72SO 

ANI 

PLOS 

2AC6  CA  2D 

2A 

7260 

JZ 

ENDR3 

*  NO,  ENO  GROUP  3 

2 AC  9  2A  00 

3S 

7270 

R3NS 

LHLD 

MATPTR 

2ACC  09 

7280 

DAD 

B 

2ACD  09 

7290 

DAD 

B 

2ACE  09 

7300 

DAD 

0 

2ACF  09 

7310 

DAD 

B 

2AD0  CS 

7320 

PUSH 

B 

2AD1  46 

7330 

MOV 

B,M 

*  GET  COL  X  DURATION 

2AD2  IE  20 

7340 

MVI 

E,20H 

•  MULTIPLY  BY  11.  S 

2AD4  CD  24 

20 

73S0 

CALL 

MUL 

2AD7  EB 

7360 

XCHG 

2ADS  29 

7370 

DAD 

H 

2AD9  29 

7380 

DAD 

H 

2ADA  EB 

7390 

XCHG 

2ADB  72 

7400 

MOV 

M,D 

*  STORE  NEW  DURATION 

2ADC  CI 

7410 

POP 

B 
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ADDH  81  B2  B3  E  LINE   LABE: 


OPCD   OPERAND 


2ADD 
2ADD 
2ADD 
2ADD 
2AE0 
2AE1 
2AE4 
2AE5 
2AEH 
2AE9 
2AEA 
2AED 
2AED 
2AEC 
2AED 
2AED 
2AF0 
2AF1 
2AF2 
2AF5 
2AF6 
2AF7 
2AF8 
2AF9 
2AFA 
2AFB 
2AFD 

2af: 

2AFF 
2B02 
2B03 
2B03 


2A  00  3S 

23 

22  00  3S 

EB 

2A  02  3S 

19 

EB 

D2  30  28 


11  FB  CA 

19 

40 

21  80  36 

23 

7E 

37 

IF 

B7 

IF 

CE  00 

77 

OD 

C2  FS  2A 

C9 


7420 
7430 
7440 
7  4  SO 
7460 
7470 
7480 
7490 
7S00 
7S10 
7S20 
7S30 
7S40 
7SS0 
7S60 
7ST0 
7S80 
7S90 
7600 
7610 
7620 
7630 
7640 
76S0 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 


END  OF  RULE  GROUP  3 


ENDR3 


LHLD  MATPTR 

INX  H 

SHLD  MATPTR 

XCHG 

T.HLD  NEGEND 

DAD  D 

XCHG 

JNC  R3LOOP 


LOOP  AGAIN  IF  NOT  DONE 


READJUST  DURATIONS  FROM  2.S  MSEC  TO  10  MSEC 
(SO  DUR  UNIT  -  FRAME  TIME) 


ADJDUR 


LXI 
DAD 
MOV 
LXI 
INX 
MOV 
OKA 
RAR 
ORA 
RAR 
AC  I 
MOV 
DCR 
JNZ 
RET 


END   OF   SECT3 


D.-MATRIX-l 

D 

C    L 

H.DUR 

H 

A,M 

A 


*   CLEAR   CARRY,    D1V   BY   SHIFTING 


0 

M,A 
C 
ADJDUR 


*  ROUND  UP  1  IF  CARRY  SET 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2003 

2006 

2008 

2O0A 

200C 

200F 

2012 

2015 

2018 

201B  C3  10  2B 

201E  C3  D9  2D 

2021 

2024 

2027 

202A 

203A 

2C3A 

203A 

20  3A 

203A 

203A 

3500 

3SO0 

3500 

3S00 

3500 

3502 

3504 

3504 

3504 

3563 

35C2 

3621 

3680 

36DF 

36DF 

36E1 

36E1 

36E1 

36E1 

36E2 

36E3 

36E4 


0010 

0020 

0030 

0040 

0050 

0050 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0  380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0  4  60 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 


GENFO 

SECTION  4  OF  THE  CSR1  SYNTHESIS  BY  RULE  SYSTEM 

LLOYD  RICE,   COMPUTALKER  CONSULTANTS 
VERSION  1.11    KAAY  30.  1977 


* 

*   COMMON 

4 

JUMP 

ADDRESS 

COf JMP 

• 

EQU 

S  - 

CSRi 

DS 

PLAY 

DS 

BUFADK 

DS 

BUFEND 

DS 

PVTAB 

DS 

MATPAK 

DS 

MATERR 

DS 

RULES 

OS 

SETDUR 

DS 

RULES  3 

DS 

JMP 

GENFO 

JMP 

CLRBUF 

GENPRM 

DS 

MUL 

DS 

DIV 

DS 

DUMMY 

DS 

16 

* 

COMRAM  ORIGEH  DEFINITION 


COM  RAM 


ORG 
EQU 


COMJMP+1500H 
$ 


CSRi  SYSTEM  RAM  SPACE  DEFINITION 


MATPTR 

HEGEMD 

MATRIX 

MATLEN 

PHCODE 

FEATA 

FEATB 

STRES- 

DUR 

MATFND 

3UFPTR 


DS 

DS 

ECU 

EQU 

DS 

DS 

DS 

DS 

DS 

ECU 

DS 


2 

2 

$ 

95 

MATLEN 

MATLEN 

MATLEN 

MATLEN 

MATLEN 

$ 

2 


*   GENFO  (LOCAL)  RAM  WORKSPACE 


STRSX 
DURX 
OURX4 
HFO 


DS  1 

DS  1 

DS  1 

DS  2 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


36E6 

36E7 

36E9 

36EB 

36ED 

36EF 

36F1 

36F1 

36Fi 

36F1 

36F1 

36F1 

2B10 

2B10 

2B10 

2B10 

2310 

2B10 

2B10 

2B10 

2B10 

2B10 

2B10 

2BiO 

2B10 

2B10 

2B10 

2B10 

2B10 

2B10 

2B10 

2B13 

2B14 

2Bi7 

2B18 

2B1A 

2B1E 

2B1D 

2B1E 

2B2i 

2B22 

2B2S 

2B26 

2B27 

2B28 

2B29 

2B2A 

2B2B 

2B2C 

2B2D 

2B2E 

2B2F 

2B32 

2B3S 

2336 

2B39 

2B3C 


2B 


36 


2A  06  20 

EB 

21  OB  00 
19 

OE  09 

2B 

36  00 

OD 

C2  1A 

23 

22  DF 
7A 

2F 
67 
47 
73 
2F 
6F 
4F 
23 
2B 
22  EB  36 

21  SE  FF 
09 

22  ED  36 
2A  03  20 
09 


0580 
0S90 
0600 
0610 
0620 
0630 
0640 
06S0 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
07S0 
0760 
0770 

07  80 
0790 
0800 
0810 
0820 

08  30 
0840 
08S0 
0860 
0870 
0880 
0890 
0900 
0910 
0920 

09  30 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
10S0 
1060 
107  0 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


FTERM 

DELTA 

SD 

tJEGBUF 

NEGPSE 

NEGBt'D 


DS 
DS 
DS 
DS 
DS 
DS 


* 

*   GENFO 

SECTAD 

* 

ORG 
EQU 

COMJMP+0B10H 
$ 

* 

*   PHONEME 

* 

CODE 

DEFINITIONS  F 

CPER 
C  QUEST 
CTERM 

• 

ECU 
EQU 
ECU 

1 
3 

4 

*   FEATURE 

D 

LABEL  DEFS  FOR  GEN 

VOWEL 
WDBND 
VOICE 

* 

ECU 
ECU 
ECU 

30H 

4 

40H 

GENFO 


LHLD 

XCHG 

LXI 

DAD 

MVI 

DCX 

MVI 

DCR 

JNZ 

INX 

SHLD 

MOV 

C.-.A 

MOV 

MOV 

MOV 

CMA 

MOV 

MOV 

DCX 

DCX 

SHLD 

LXI 

DAD 

SHLD 

LHLD 

DAD 


BUFADR 

H.ll 

D 

C,9 

H 

M,0 

C 

5-4 

H 

BUFPTR 

A,D 

H,A 
B,A 
A,E 


GET  (BUFADR)  IN  DE 


*  CLEAR  FRAME  1 


*  POINT  TO  FO  BYTE  IN  FRAME  1 


.A 
,A 


EGBUF 
,-9»18 

EGPSE 
UFEND 


NEGBUF— (BUFADR)-3 

NEGPSE  »  -ADDR  CF  FO  PARAM 

IN  LAST  FRAME  OF  INITIAL  PAUSE 
GET  LAST  AVAILABLE  BUFFER  LOC 
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ADDR 

Bl 

82 

B3    E 

LINE 

LABEL 

OPTD 

OPERAND 

2B3D 

EB 

11S0 

XCHG 

28JE 

21 

09 

00 

1160 

LXI 

H.9 

2B41 

CD 

27 

20 

1170 

CALL 

DIV 

• 

DIVIDE    AVAILABLE    SPACE    BY    9 

2B44 

S4 

liao 

MOV 

D,H 

• 

IGNORE    REMAINDEK 

2B4S 

SD 

1190 

MOV 

E,L 

• 

MOVE    MAX    FRAME    COUNT    TO    DE 

2B46 

29 

1200 

DAD 

H 

2B47 

29 

1210 

DAD 

H 

2B48 

29 

1220 

DAD 

H 

2B49 

19 

1230 

DAD 

D 

• 

(HL)     «    9«FRAME    COUNT 

2B4A 

08 

1240 

DOX 

P 

* 

(Br)     >    -(PUFADR>-2 

2B4B 

79 

12S0 

MOV 

A.C 

2B4C 

9S 

12o0 

SUB 

I 

2B4D 

6F 

1270 

MOV 

L,A 

2B4E 

78 

1280 

MOV 

A,F 

!B4F 

90 

1290 

SBU 

H 

2BS0 

67 

1  100 

MOV 

H,A 

2BS1 

22 

FF 

16 

1310 

f.HLD 

NEC  AND 

* 

-(BUFADR)-2-9«MAX    FRAME   ONT 

2BS4 

21 

OS 

IS 

1  320 

LXI 

H.MATRIX-t-l 

. 

2BS7 

22 

^0 

IS 

mo 

SHLD 

MATPTR 

* 

POINT   TO    MAT   COL    2     (AFTER    1) 

23SA 

1  140 

• 

2BSA 

1  ISO 

2BSA 

1  IbO 

• 

2BSA 

1170 

• 

EAHI    PASS    THRU    FOLCOP 

GENERATES    FO    DATA    INTO 

2BSA 

1180 

» 

FRAMES 

1+1    THRU    1+DURATION    X,    CORRESPONDING    TO 

2BSA 

1  190 

• 

THE    PHONEME     IN    MATRIX 

COLUMN    X.       BUFPTR    ALWAYS 

2BSA 

1400 

• 

POINTS 

TO    F0(I)    AT    THE    BEGINNING    OF    THE    LOOP. 

2BSA 

1410 

* 

2BSA 

00 

1420 

FO 

'-OOP 

NOP 

» 

• 

BREAKPOINT    LOC 

2BSB 

2A 

00 

3S 

14  10 

LHLD 

MATPTR 

2BSE 

01 

SF 

00 

1440 

LXI 

B.MATLEN 

2861 

SE 

14S0 

MOV 

E,M 

* 

GET    COL    X    CODE    IN    E 

2B62 

09 

1460 

DAD 

B 

2B63 

SS 

1470 

MOV 

D,M 

* 

GET   COL    X    FEATA    IN    D 

2B64 

09 

1480 

DAD 

D 

28bS 

7E 

1490 

MOV 

A,M 

* 

GET    f"OL    X    FLATS    IN    A 

2B66 

09 

iSOO 

DAD 

B 

• 

MOVE    PTR    TO    STRESS    X 

2B67 

E6 

40 

iSlO 

ANI 

VOICE 

2B69 

C2 

22 

2C 

1S20 

JNZ 

VOICED 

• 

IT'S    A    VOICED    PHONEME 

2B6C 

09 

IS  30 

DAD 

8 

2B6D 

7E 

1S40 

MOV 

A,M 

2B6E 

12 

E2 

16 

lSSO 

STA 

DURX 

* 

SAVE    DURATION    X 

2B71 

7B 

1S60 

MOV 

A,E 

2B72 

IE 

nn 

1S70 

MVt 

E.-40 

• 

TERMINAL    DROP     IF    " . " 

2B74 

FF 

01 

1S80 

CPI 

CPER 

2876 

CA 

80 

2B 

1S90 

JZ 

ENDS 

. 

2B79 

IF. 

2d 

1600 

14  VI 

E,40 

* 

TERMINAL    RISE    IF    " ? * 

2B7B 

FE 

0  ) 

1610 

CPI 

OCUFST 

2B7D 

r2 

1  1 

2C 

1620 

JN2 

NOFO 

2B80 

16  10 

• 

2B80 

1640 

• 

COMPUTE    PHRASE-TERMINAL 

FO    CHANGE 

2R80 

IbSO 

• 

ENTER 

WITH    FO 

OFFSET 

IN 

E 

2BB0 

1660 

» 

2B80 

78 

1670 

ENOS 

MOV 

A,E 

2H81 

12 

Et> 

36 

1680 

STA 

FTERM 

» 

SAVE    FO   >"HANCF    VALUE 

2B84 

AF 

1690 

XRA 

A 

2B8S 

01 

F7 

FF 

1700 

LXI 

H,-9 

2BB0 

2  A 

DF 

36 

1710 

LHLD 

l'UFPTR 

* 

SCAN    BACK    FOR    LAST    NON    0    FO 
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ADDR    Dl    B2    03    E    LINE      LAPEL 


OPCD      OPKRANO 


2B8B    Rb 

1720    ENDSl 

2B8C    C2    9C 

2B 

1730 

2B8F    09 

1740 

2B90   r.o 

17S0 

2B91    2 A    EB 

36 

1760 

2B94    19 

1770 

2B9S    D2    13 

2C 

17U0 

2B9B    EB 

1790 

21399   <~3    8B 

2B 

1300 

2B9C     1A    E6 

16 

1810    RAMP 

2B9F    86 

1820 

2BA0    FE    OF 

1830 

2BA2    02    AA 

2B 

1840 

20AS    3E    OF 

18S0 

20A7    C3    Bl 

2B 

1860 

2BAA    FE    7D 

1870    RAKP1 

2BAC    DA    Bl 

2B 

1880 

2BAF    3E    7D 

1890 

2B31    96 

1J00    RAMP2 

2BL2    32    E6 

36 

1910 

2BBS    EB 

19  20 

2BB6    06    ID 

1930 

2BB8    OS 

1940    HAMP3 

28B9    78 

19S0 

2BBA    87 

1960 

2BBB    87 

1970 

2BBC    87 

1430 

2DBD    80 

1990 

2BBE    2F 

2000 

2BBF    3C 

2010 

2BC0    4F 

2020 

2BC1    2A    ED 

36 

2030 

2BC4    19 

2040 

2BCS    3S 

2050 

2BC6     3E    FF 

2060 

2Bra    8C 

2070 

2nC9    D2    B8 

2B 

2080 

2BCC    69 

2090 

2BCD    16    FF 

2100 

2BCF    19 

2110 

2BD0    ES 

2120 

2BD1     3A    E6 

36 

2130 

2BD4    4F 

2140 

2BDS    B7 

21S0 

2BD6    F2    DB 

2n 

7160 

2BD9    2F 

2170 

2BDA    3C 

2130 

2BDB    S7 

2190 

2BDC    IE    00 

2200 

2BDE    od 

2210 

2RDF    2b    Od 

2220 

2BE1    CD    27 

20 

2230 

2BE4    79 

2240 

2BES   B7 

22S0 

2BE6    F2    FO 

2B 

2260 

2BE9    7C 

2270 

2BEA    2F 

2280 

OHA 

JNZ 

DAD 

XCHG 

LHLD 

DAD 

JNC 

XCHG 

JMP 

LDA 

ADD 

CPI 

jnc 

MVI 

JMP 

CPI 

JC 

MVI 

SUB 

STA 

XCHG 

MVI 

DCK 

MOV 

ADD 

ADD 

ADD 

ADD 

CMA 

INR 

MOV 

LHLD 

DAD 

ADD 

MVI 

ADC 

JNC 

MOV 

MVI 

DAD 

PUSH 

LDA 

MOV 

ORA 

JP 

CMA 

INR 

MOV 

MVI 

MCV 

MVI 

CALL 

MOV 

OHA 

JP 

MOV 

CMA 


M 

RAMP 

B 

NEGBUF 

D 

HOFO 

ENDSl 

FTERM 

M 

IS 

RAM  PI 

A, IS 

RAMF2 

12S 

RAMP  2 

A.12S 

M 

FTERM 

* 

B,24 
B 

A, a 

A 

A 
A 
B 

A 

C.A 

NEGPSE 

D 

L 

A.OFFH 

II 

RAMP  3 

L.C 

H.OFFH 

D 

H 

FTERM 

C.A 

A 

S  +  S 

A 

D,A 

E.O 

L,B 

H.O 

DIV 

A,C 

A 

RAMP  4 

A,H 


•  FOUND  A  NON  0  VALUE 


HIT  FRONT  OF  BUFFER,  EXIT 


NON  0  FO  +  CHANGE 


FINAL    FO    <    IS,    MAKE    IT    IS 


*  FINAL    FO    >    12S,    MAKE    IT    12S 

*  THE    REAL    FINAL    FO   OFFSET 

*  END-OF-RAMP    ADDR    TO    DE 

*  TRV    TO    MAKE    A    290    MSEC    RAHF 

*  TENTATIVE    RAMP    LENGTH 


-9*TRL  INTO  A  AND  C 


•  AVAILABLE  SPACE  IN  HI 


NO  ROOM,  SHORTEN  RAMP 


DEGIN-RAMP  ADDR,  SAVE  IT 


*  OFFSET  IS  ♦ 


*  OFFSET  IS 


MAKE  IT  ♦ 


*  2S6*OFFSET  INTO  DE 


•  RAMP  FRAME  COUNT  IN  HL 


OFFSET 
OFFSET 


IS 
IS 


OK 

MAKE  DELTA 
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ADDR    Bl    B2    B3    E    LINE      LABEL  OPCD      OPERAND 


2BEB    67  2290  MOV  H,A 

2EEC    7D  2300  MOV  A,L 

2BED    2F  2310  CMA 

2BEE    6F  2320  MOV  L,A 

2BEF    23  2330  INX  II 

2BF0    22    E7  36         2340  RAMP4                 SHLD  DELTA         »    DELTA=2S6 •OFFSET/RAMP    LENGTH 

2BF3    11    00  00         23S0  LXI  D,0 

2BF6    03    FD  2B         2360  JMP  RAMPS+4 

2BF9    ES  2370  RAMPS                 PUSH  H                    •    SAVE    BUFFER    POINTER 

2BFA    2A    E7  36         2380  LHLD  DELTA 

2BFD    19  2390  DAD  D                     *    DIF=DIF+DELTA 

2BFE    E3  2400  XTHL  *       •             *    DIF    TO    STACK 

2BFF    EB  2410  XCHG  *                    *    BUFFER    PTR    TO    DE 

2C0C    21    09  00         2420  LXI  H,9 

2C03    19  2430  DAD  D                    *    UPDATE    BUFFER    PTR 

2C04    Dl  2440  POP  D                    *    DIF    TO    DE 

2CCS    7E  24S0  MOV  A,M               *    FCOLDF0  +  D1F/2S6 

2C06    87  2460  ORA  A 

2CC7    CA    OC  2C         2470  JZ  $  +  S               *    IT'    0,    DON'T    CHANGE    IT 

2C0A    82  2480  ADD  D 

2C0B    77  2490  MOV  M,A 

2C0C    OS  2S00  DOR  B 

2C0D    02    F9  2B         2S10  JN2  RAMPS 

2C10    03    E7  2C         2S20  JMP  F.NDFO 

2013  2S30  • 

2013  2S40  *      UNVOICED    PHON ,    GENERATE    ARC    TO    STRESS    2    LEVEL 

2C13  2SS0  * 

2C13    3A    E2  36         2S60  NOFO                    LDA  DURX 

2C16    4F  2S70  MOV  C,A 

2C17    06    OS  2S80  MVI  B,S 

2C19    2A    DF  36         2S90  LHLD  BUFPTR 

2C1C   CD    12  2D         2600  CALL  FPARAB       *    PARABOLA    PEAKS    AT    END   OF    PHON 

2C1F    C3    E7  2C         2610  JMP  ENDFO 

2C22  2620  • 

2C22  2630  •      GENERATE    FO    FOR    VOICED    PHONS 

2022  2640  •      ON    ENTRY:     (D)-FEATA    X,     (E)-KATLEN 
2C22  26S0  •                                 HL  POINTS    TO    STRESS    X 
2C22  2660  • 

2C22    SE  2670  VOICED              KOV         E,M               *   GET    STRESS    X    IN    E 

2C23     ;9  2680  DAD  B 

2C24    7E  2690  MOV  A,K 

2C2S    32    E2    36         2700  STA         DURX            •    GET    DUR    X    i    SAVE    IT 

2023  7A  2710  MOV  A,D               *    GET    FEATA    X 
20  29    £5    90  27  20  ANI         VOWEL 

2C20    OA    63  20         2730  JZ  VNEXT         *    X    NOT   A    VOWEL,    TRY    X+l 

202E    7B  2740  MOV  A,E               *    X    IS    VOWEL,    SEE    IF    STRESSED 

202F    B7  27S0  ORA  A 

20  30    CA    63  2C         2760  JZ            VNEXT         •    NO,    TRY    X+l 

2033    32    El  36         2770  STA  STRSX         *    SAVE    STRESS    VALUE 

2C36    06    00  2780  MVI  B,0 

2033    3A    E2    36         2790  LDA  DURX            *   GET    DURX    AGAIN 

20 3B    B7  2800  VSTRS                 ORA  A                    *    DIVIDE    IT    BY    4 

20  30    IF  2310  RAR 

2C3D    B7  2320  ORA  A 

2C3E    IP  2330  RAR 

203F    80  2840  ADD  B                    *    ADD    EITHER    0    OR    DURX 

2C40    32    E3    36         28S0  STA         DURX4         *    EITHER    DURX/4    OR   DURX+DURY/4 
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ADDR    Bl    B2    E3    E    LINE      LABEL 


OPCD      OPERAND 


2C43    4F 

2360 

MOV 

C,A 

2C44    3A    El 

36 

2870 

LDA 

STRSX 

2C47    47 

2880 

MOV 

B,A 

2C48    2A    DP 

36 

2890 

LHLD 

BUFPTR 

2C4B    CD    12 

2D 

2900 

CALL 

FPARA8 

2C4E    CO 

2910 

RNZ 

* 

2C4F    3A    E3 

36 

2920 

LDA 

DURX4 

2C52    47 

2930 

MOV 

B,A 

2C53    3A    E2 

36 

2940 

LDA 

DURX 

2C56    90 

2950 

SUB 

3 

2C57    4F 

2960 

MOV 

C,A 

2CS8     3A    El 

36 

2970 

LDA 

STRSX 

2C5B    47 

2980 

MOV 

B,A 

2C5C    CD    7F 

2D 

2990 

CALL 

BPARAB 

2C5F    CO 

3000 

RNZ 

* 

2C60    C3    E7 

2C 

3010 

JMP 

ENDFO 

2C63 

3020    « 

2C63 

3030    *      CURRENT 

VOICED    PHON    I 

2CS3 

3040    *       IF    NEXT 

ONE    IS,    GENEF 

2C63 

3050    * 

2C63    2A    DF 

36 

3060    VNEXT 

LHLD 

BUFPTR 

2C66    7E 

3070 

MOV 

A,M 

2C67    B7 

3080 

ORA 

A 

2C68    C2    6D 

2C 

)090 

JN'Z 

S  +  5 

2C6B    36    45 

3100 

MV1 

M,69 

2CGD    7A    00 

35 

3110 

LHLD 

MATPTR 

2C70    .3 

3120    VNXT1 

I  NX 

H 

2C71    54 

3130 

MCV 

D,H 

2C72    5D 

3140 

MOV 

E,L 

2C73    7E 

3150 

MOV 

A,M 

2C74    FE    04 

3160 

CPI 

CTERM 

2C76    CA    A6 

2C 

3170 

JZ 

DOWNDR 

2C79    09 

3180 

DAD 

B 

2C7A    7E 

3190 

MOV 

A,M 

2C73    E6    04 

3200 

AN  I 

WDBND 

2C7D    CA    84 

2C 

3210 

JZ 

VNXT2 

2C80    EB 

3220 

XCHG 

2C81    C3    70 

2C 

3230 

JMP 

VNXT1 

2C34    7E 

3240    VNXT2 

MOV 

A,M 

2C85    E5    80 

3250 

ANI 

VOWEL 

2C87    CA    A6 

2C 

3260 

JZ 

DOWNDR 

2C8A    09 

3270 

DAD 

B 

2C8B    09 

3280 

DAD 

B 

2C8C    7E 

3290 

MCV 

A,M 

2C8D    B7 

3300 

ORA 

A 

2C8E    CA    A6 

2C 

3310 

JZ 

DOWNDR 

2C91    32    El 

36 

'3320 

STA 

STRSX 

2C94    09 

3330 

DAD 

B 

2C95    4E 

3340 

MOV 

CM 

2C96    3A    E2 

36 

3350 

LDA 

DURX 

2C99    47 

3360 

MOV 

B,A 

2C9A    81 

3370 

ADD 

C 

2C9B    32    E2 

36 

3330 

STA 

DURX 

2C9E    EB 

3390 

XCHG 

2C9F    22    00 

35 

3400 

SHLD 

MATPTR 

2CA2    79 

3410 

MOV 

A.C 

2CA3   C3    3B 

2C 

3420 

JMP 

VSTRS 

*    MOVE    STRESS    INTO    B 


•  COMPUTE    FRONT   OP    PARABOLA 

*  ERROR    RETURN 


•  FULL  DUR  -  FRONT  DUR  INTO  C 


*  COMPUTE  BACK  OF  PARABOLA 
»  ERROR  RETURN 


«  GET  LAST  F0  OF  PREV  PHON 
«  LAST  F0  WAS  0,  MAKE  IT  69 

•  GET  NEXT  COL  CODE 

*  END  OF  MATRIX,  FINISH  X 


*  NOT  A  WORD  BOUNDARY 

*  X  +  l  IS  WDeOUh'D,  BUMP  AGAIN 

*  GET  COL  Y  FEATA 

*  If  NOT  A  VOWEL,  DOWNDRIFT  X 


*  GET  COL  Y  STRESS 

*  Y  IS  VOWEL  BUT  NOT  STRESSED 

*  GET  COL  Y  DURATION 

*  DUSX-DUR  X  +  DUR  Y 

*  MOVE  MATPTR  UP  TO  COL  Y 

*  GET  COL  Y  DURATION 


120 


PAGE    07 


ADDR   Bl    B2    B3    E    LINE      LABEL 


OPCO      OPERAND 


2CA6 

3430    • 

2CA6 

3440    •      LET 

FO    DRIFT 

DOWNWARD 

TOWARD    43     (100    HZ) 

2CA6 

3450    * 

2CA6    2A 

00 

35 

3460    DOWNDR 

LHLD 

MATPTR 

2CA9    01 

7C 

01 

3470 

LXI 

B,MATLEN*4 

2CAC    09 

3480 

DAD 

B 

2CAD    4E 

3490 

MOV 

CM 

*   GET   DUR   X    IN   C 

2CAE    2A 

DF 

36 

3500 

LHLD 

BUFPTR 

2CB1    56 

3510 

MOV 

D,M 

*    GET    PREVIOUS    FO    IN    D 

2CB2    IE 

00 

3520 

MVI 

E,0 

2CB4    D5 

3530 

PUSH 

D 

2C35    E3 

3540    DWN1 

XTHL 

* 

*    BUFPTR    TO    STACK,    GET 

2CB6    7C 

3550 

MOV 

A,H 

*    SHIFT    HL    RIGHT    5 

2CB7    29 

3560 

DAD 

H 

2CB8    29 

3570 

DAD 

H 

2CB9    29 

3580 

DAD 

H 

2CBA    6C 

3590 

MCV 

L,H 

2CBB    07 

3600 

RLC 

2CBC    07 

3610 

RLC 

2CBD    07 

3620 

RLC 

2CBE    E6 

07 

3630 

AN  I 

7 

' 

2CC0    67 

3640 

MOV 

H,A 

2CC1    2F 

3650 

CMA 

2CC2    S7 

3660 

MOV 

D,A 

*    MULTIPLY     (HL)    BY    31 

2CC3    7D 

3670 

MOV 

A,L 

•      IE.    HL-(HL)  »32-(HL) 

2CC4    2F 

3680 

CMA 

2CC5    5F 

3690 

MOV 

E,A 

2CC6    13 

3700 

INX 

D 

2CC7    29 

3710 

DAD 

H 

2CC8    29 

3720 

DAD 

H 

2CC9    29 

3730 

DAD 

H 

2CCA    29 

3740 

DAD 

H 

2CCB    29 

3750 

DAD 

H 

2CCC    19 

3760 

DAD 

D 

2CCD    11 

S3 

01 

3770 

LXI 

0,8*43 

«    ADD    4  3    SHIFTED    3    LEFT 

2CD0    19 

3780 

DAD 

D 

2CD1    7C 

3790 

MOV 

A,H 

«    NEW    F0    VALUE    INTO    A 

2CD2    Dl 

3800 

POP 

D 

*   GET    BUFFER    PTR 

2CD3    E5 

3810 

PUSH 

H 

2CD4    21 

09 

00 

3820 

LXI 

H,9 

2CD7    19 

3830 

DAD 

D 

*    UPDATE    TO    NEXT    FRAME 

2CD8    EB 

3840 

XCHG 

2CD9    2A 

EF 

36 

3850 

LHLD 

NEGBND 

2CDC    19 

3860 

DAD 

D 

2CDD    DA 

AC 

2D 

3870 

JC 

BFERR-1 

*    SORRY,    BUFFER    IS    FULI 

2CE0    EB 

3880 

XCHG 

• 

2CE1    77 

3890 

MOV 

M,A 

•    PUT    FO    IN    BUFFER 

2CE2    00 

3900 

DCR 

c 

2CE3   C2 

B5 

2C 

3910 

JNZ 

DWHl 

2CE6    Dl 

3920 

POP 

D 

2CE7 

3930    * 

2CE7 

3940    *      END 

FOLOOP,    STEP    MATRIX    TO    NEXT    PHOH 

2CE7 

3950    • 

2CE7    22 

DF 

36 

3960    ENDPO 

SHLD 

BUFPTR 

*    SAVE    BUFFER    POINTER 

2CEA    2A 

00 

35 

3970 

LHLD 

MATPTR 

2CED    23 

3980 

INX 

H 

2CEE    22 

00 

35 

3990 

SHLD 

MATPTR 

•    INCREMENT   MATRIX    POIN 

121 


PAGE    08 


ADDR    Bl    B2    B3    E    LINE      LABEL 


OPCD      OPERAND 


2CF1    EB 
2CF2    2A 
2CF5    19 
2CF6    D2 
2CF9    2A 
2CFC    EB 
2CFD    2A 
2DO0    19 
2D01    EB 
2D02    21 
2D05   CD 
2D08    23 
2D09    EB 
2DQA    2A 
2D0D    73 
2D0E    23 
2D0F    72 
2D10    AF 
2D11    C9 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12 
2D12    AF 
2D13    BS 
2D14    C8 
2D15    56 
2D16    E5 
2D17    BA 
2D18   C2 
2D1B    CD 
2D1E    56 
2D1F    3E 
2D21    CD 
2D24    7E 
2D25    92 
2D26    47 
2D27    21 
2D2A    72 
2D2B    "57 
2D2C    69 
2D2D    2C 
2D2E    AF 
2D2F    5F 
2D30    67 
2D31    CD 
2D34    29 
2D35    S9 
2D36    22 
2D39    60 
2D3A    69 


02  35 

5A  2B 

EB  36 

DF  36 


09    00 
27    20 


06    20 


IF  2D 

BF  2D 

05 

BF  2D 


E5    36 


27    20 
E7    36 


4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4230 

4290 

4300 

4310 

4320 

4330 

4340 

43SO 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 


XCHG 

LHLD 

DAD 

JNC 

LHLD 

XCHG 

LHLD 

DAD 

XCHG 

LXI 

CALL 

IHX 

XCHG 

LHLD 

MOV 

INX 

MOV 

XRA 

RET 


NEGENO 
D 

FOLOOP 
NEGBUF 

BUFPTR 
D 

H.9 
DIV 
H 

BUFADR 

M,E 

H 

M,D 

A 


*   THERE'S    MORE    TO   THIS    KATRIX 


*  BUFFER   SPACE    USED   /9 

*  -   OVERALL    FRAME   COUNT 

*  BUT   THAT    WAS    1    FRAME    SHORT 

*  PUT    IT    IN    1ST    2    BYTES    OF    BUFFER 


PARABOLA    GENERATOR    SUBROUTINES 

FPARAB 

CONSTRUCT  FRONT  PARABOLA  CURVE  UP  TO  PEAK 

ON  ENTRY:  (B) -STRESS  X,  (C) -FRAME  COUNT  TO  PEAK 

HL  POINTS  TO  F0  IN  LAST  FRAME  OP  PREV  PHON 


FPARAB 


FPRBl 


PARAB2 


XRA 

CMP 

RZ 

MOV 

PUSH 

CMP 

JNZ 

CALL 

MOV 

MVI 

CALL 

MOV 

SUB 

MOV 

LXI 

MOV 

MOV 

MOV 

INR 

XRA 

MOV 

MOV 

CALL 

DAD 

MOV 

SHLD 

MOV 

MOV 


A 

C 

D,M 
H 

D 

FPRBl 

GETF0 

D,M 

A, 5 

GETF0 

A,M 

D 

3, A 

H.HF0+1 

M,D 

D,A 

L.C 

r 

A 

E,A 

H,A 

DIV 

H 

E,C 

DELTA 

H,B 

L,C 


RETURN  IF  N  (FRAME  COUNT)  "0 
GET  PREV  F0  INTO  D 


PREV  F0  WAS  NON-0,  USE  IT 
PREV  WAS  0,  GET  ONE  FROM  TABLE 

INDEX  TO  2ND  COL  OP  TABLE 
GET  F0  LEVEL  AT  PARAB  PEAK 


*  SET  HF0  TO  STARTING  PT 


*  DELTA-2M  (256«DIP)/(N+1)) 

*  MOVE  PRAME  COUNT  TO  E 

*  MOVE  B  4  C  OUT  OF  MUL'S  WAY 
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ADDR  81  82  B3  E  LINE  LABEL      OPCD  OPERAND 

2D38  43  4S70  MOV  B,E      *  GET  EITHER  14  OR  8-1  FROM  E 

2D3C  04  4580  INR  B 

2D3D  CD  24  20    4590  CALL  MUL      *  DENOM- (B) * ( (B) -1) 

2D40  40  4600  MOV  C,L 

2D41  EB  4610  XCHG 

2D42  IE  00  4620  MVI  E,0 

2D44  CD  27  20    463C  CALL  DIV      *  S-2* ( (256*DIF) /DENOM) 

2D47  29  4640  DAC  II 

2D43  7C  4650  MOV  A,H 

2D49  2F  4660  CMA 

2D4A  67  4670  MOV  H,A 

2D4B  7D  4630  MOV  A',L 

2D4C  2F  4690  CMA 

2D4D  6F  47D0  MOV  L,A 

2D4E  23  4710  INX  H 

2D4F  22  E9  36    4720  SHLD  SD 

2052  AF  4730  XRA  A 

2D53  32  E4  36    4740  STA  HFO      •  CLEAR  LS  PART  OF  HFO 

2D56  El  4750  POP  H 

2DS7  EB  4760  PARAB3      XCHG 

2D58  21  09  00    4770  LXI  H,9      *  MOVE  BUFFER  PTR  TO  NEXT  FRAKE 

2D5B  19  4780  DAD  D 

2D5C  EB  4790  XCHG 

2D5D  2A  EF  36    480C  LHLD  NEG8ND 

2D6Q  19  4910  DAD  D 

2D61  DA  AD  2D    4820  JC  BFERR    *  RAN  OUT  OF  ROOM1 

2D64  OS  4830  PUSH  D 

2D6S  2A  E7  36    4840  LHLD  DELTA 

2D68  EB  4850  XCHG 

2069  2A  E4  36    4860  LHLD  HFO 

2D6C  19  4870  DAD  D 

2D6D  22  E4  36    4880  SHLD  HFO      *  HF0=HFO+DELTA 

2D70  44  4890  MOV  B,H      *  H  CONTAINS  NEW  FO  VALUE 

2071  2A  E9  36    4900  LHLD  SD 

2D74  19  4910  DAD  D 

2075  22  E7  36    4920  SHLD  DELTA    *  DELTA-DELTA+S 

2D78  El  4930  POP  H        *  GET  BUF  PTR  BACK 

2D79  70  4940  MOV  M,E 

2D7A  OD  49S0  DCR  C 

2D7B  C2  17  2D    4960  JNZ  PARAB3 

2D7E  C9  4970  RET 

2D7F  4930  » 

2D7F  4990  *   BPARA8 

2D7F  5000  *   CONSTRUCT  BACK  PARABOLIC  CURVE  DOWN  FROM  PEAK 

2D7F  5010  «   ON  ENTRY:  (B) -STRESS  X,  (C) =FRAME  CNT  DOWN  FROM  PEAK 

2D7F  5020  *             HL  POINTS  TO  FO  PARAM  AT  PEAK 

2D7F  S030  *- 

2D7F    AF  5040  BPARAB              XRA  A 

2D80    B9  5050  CMP  C                    *    RETURN    IF    FRAME   COUNT    -0 

2D31    C3  5060  RZ 

2D82    56  5070  MOV  D,M              *   GET    PREV   FO    VALUE 

2D83    E5  5080  PUSH  H 

2D84     3E    OA  5090  MVI  A, 10 

2D86   CD   BF    2D         5100  CALL  GETFO         «   SET    HL   TO    END-PARAB    LEVEL 

2D89    7A  5110  MOV  A,D 

2D8A    32    E5    36         5120  STA  HF0+1         •    SAVE    OLD    FO 

2D8D    96  5130  SUB  M 
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ADDR    Bl    B2    B3    E    LINE       LABEL 


OPCD      OPERAND 


2D8E    47 
2D8F    21 
2D92    59 
2D93    ID 
2D94    C2 
2D97    3A 
209A    80 
2D9B    Dl 
2D9C    21 
2D9F    19 
2DA0    EB 
2DA1    2A 
2DA4    19 
2DA5    DA 
2DA8    EB 
2DA9    77 
2DAA    AF 
2DAB    C9 
2DAC 
2DAC 
2DAC 
2DAC    Dl 
2DAD    21 
2DB0    F6 
2DB2    C9 
2DB3 
2DB3    42 
2CB6    46 
2DB9    20 
2DBC    4C 
2DBE    OD 
2DBF 
2DBF 
2DBF 
2DBF 
2DBF 
2DBF 
2DBF 
2DBF    21 
2DC2    80 
2DC3    85 
2DC4    6F 
2DC5    3E 
2DC7    8C 
2DC8    67 
2DC9   C9 
2DCA 
2DCA 
2DCA 
2DC     63 
2DCB    59 
2DCC    54 
2DCD    52 
2DCE    51 
2DCF    6C 
2DD0    63 
2DD1    5E 


00    00 


36    2D 
E5    36 


09    00 

EF    36 
AD    2D 


B3    2D 
FF 


55    46 

45  52 

46  55 
4C 


C9    2D 


00 


5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340    * 

5350 

5360    BFERR 

5370 

5380 

5390    * 

5400    BFTX 


MOV 
LXI 
MOV 
DCR 
JNZ 
LDA 
.ADD 
POP 
LXI 
DAD 
XCHG 
LHLD 
DAD 
JC 

XCHG 
MOV 
XRA 
RET 


B,A 

H,0 

E,C 

E 

PARAB2 

HFO+1 

a 

D 
H,9 

D 

NEGBND 

D 

BFERR 

M,A 
A 


*    DIFF    TO    NEW    F0    INTO    B 


N>1,    COMPUTE    PARABOLA 
N-l,    STORE    1    POINT 


•    INCR    PTR   TO    NEXT   FRAME 


*    NO    MORE    ROOM 


ERROR  SUBROUTINE 


5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480  * 

5490  GETF0 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570  * 

5530 

5590  « 

5600  STRSF0 

5610 

5620 

5630 

5640 

5650 

5660 

5670 


POP 
LXI 
ORI 
RET 

DT 


DB 


D 

H.BFTX 

255 


*  ENTRY  HERE  FROM  DOWNDR 


'BUFFER  FULL' 


0DH 


GET  AN  FO  LEVEL  FROM  STRSFO  TABLE  (SET  HL  TO  IT) 
ON  ENTRY: 

A  TELLS  THE  COLUMN,  0«SP,  5-MP,  10»EP 

B  CONTAINS  THE  STRESS  LEVEL  1-5 
ON  RETURN,  HL  POINTS  TO  THE  DESIRED  ENTRY 


LXI 

ADD 
ADD 
MOV 
MVI 
ADC 
MOV 
SET 


H.STRSFO-1 
B 

r 

L,A 

A,0 

H 

H,A 


FO    TABLE    FOR    DIFFERENT   STRESS    LEVELS 


DB 
DO 
DB 
DB 
DB 
DB 
DB 
DB 


99 

89 

84 

82 

81 

108 

99 

94 


PARA3    STARTING    PT. 
S.P.,    STRESS    2 
ETC. 


STRESS  1 


*  PARAS  MID  POINT  (PEAK) 
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ADDR  Bl  B2  B3  E  LINE   LABEL 


OPCD   OPERAND 


2DD2 
2DD3 
2CD4 
2DDS 
2DD6 
2DD7 
2DD8 
2DD9 
2DD9 
2DD9 
2CD9 
2D09 
2DD9 
2DD9 
2DD9 
2DD9 
2DD9 
2DD9 
2DDC 
2DDF 
2DE0 
2DE2 
2DE4 
2DE5 
2DE6 
2DE7 
2DE8 
2DE9 
2DEA 
2DEB 
2DEC 
2DED 
23EE 
2DEF 
2DF0 
2DF1 
2DF2 
2DF3 
2DF4 
2DFS 
2DF6 
2DF7 
2DF8 
2DF9 
2DFC 
2DFD 
2DFD 


SC 
S3 
S9 
4F 
4A 
47 
46 


2A  06  20 

11  03  00 

i9 

16  80 

IE  AC 

AF 

77 

23 

23 

72 

23 

72 

23 

73 

2) 

77 

23 

77 

23 

72 

23 

77 

23 

'IB 

30 

31 

02  E4  2D 

C9 


S680 

S690 
S700 
S710 
S720 
S730 
S740 
S7S0 
S760 
S770 
S780 
S790 
S900 
S81C 
SS20 
S830 
S840 
S8S0 
i860 
S870 
S880 
S890 
S900 
S910 
S920 
S930 
5940 
S9S0 
S960 
S970 
S980 
S990 
6000 
6010 
6020 
6030 
6C40 
60S0 
6060 
6073 
60  3  0 
6090 
61C0 
6110 
6120 
6130 
6i40 


DB 
DB 
DB 
SB 
DB 
DB 
DB 


92 

91 

89 
79 

74 
71 
70 


*  PARAB  END  POINT 


CLRBL'F  IS  CALLED  DY  GEMPRM  TO  INITIALIZE 

THE  PARAMETER  BUFFER  (OR  PART  OF  IT) 

VALUES  IN  THE  F0  PARAMETER  ARE  NOT  DISTURBED 


ON    ENTRY: 


(BC)-   THE    »    OF    FRAMES    TO    INITIALIZE 
STARTING   WITH    THE    2ND    FRAME    OF   THE    BUFFER 


CLRBUF 


CLOOP 


LHLD 
LXI 

DAD 
MVI 
MVI 
XRA 
MOV 
INX 
INX 
MOV 
INX 
MOV 
INX 
MOV 
IHX 
MOV 
IHX 
'■".OV 
INX 
MOV 
INX 
110V 
INX 
DCX 
ORA 
ORA 
JNZ 
RET 


END   OF   SECT4 


EUFADR 

D.ll 

D 

D.128 

E.172 

A 

M,A 

H 

H 

M,D 

H 

M,D 

H 

K,E 

H 

M,A 

H 

M,A 

H 

M,D 

H 

M,A 

H 

B 

3 

r 

CLOOP 


*    AV-0 


*    Fl-123 


*    F2-128 


*    F3-172 


AH=0 


*    AF-0 


FF=i28 


*    AN-0 
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ADOh    di     Si    JJ    £    LINE        LACEL 


OPCD      OPERAND 


2CUQ 

2000 
2U-J0 
2UUU 

2000 
2000 
20UO 

2000 
2000 

it  J'J 

2  000 
2000 
2'J'JU 
200  5 
200o 
2006 
2C0A 
200C 
2CJF 
20  i  2 
20l5 
2'.'ie 
201B 
201E 
2021 

2.24 
202; 
2C2A 
2C2D 
20  n; 
20  12 
20  14 
20  lb 
20  !» 
20  >A 
20  I A 
20  1A 
20  JA 
20  JA 
ZO  J  A 
15  00 
3  500 
!  500 

no 'j 
3502 

3  50  4 
3  504 
ISO  4 
156  J 
35C2 
3621 
ibse 
36DF 
360F 
36Ei 


Cl  00 
CI  00 
CJ  ii 


2E 
12 
12 


0010 
0020 

oo  iO 

004  0 
00  50 
0060 
00  70 
006  0 

0090 

CiOO 
OliO 
0i20 
Oi30 
0140 
OiSO 
0160 
0170 
OidO 
0190 
0  20  0 
02iU 
0  220 
02  10 
0240 
0  250 
02oO 
0270 
0260 
02i/0 
0  100 
0  3iO 
0  320 
0  130 
0J40 
0  350 
t!  160 
0  370 
0  100 
0  0*0 
0400 
0410 
0  4  20 
04  30 
0  4  4  0 
0  4  SO 
0  4  o  0 
0470 
04  60 
0490 
OSOO 
OSit 
0S2O 
OSiO 
0S40 
OSSO 
OSoO 
0S7C 


*  GENPR.'l 

*  SECTION  S  OF  THE  CSKi  SY1I1HES1S  By  RULE  SYSTEM 

* 

*  LLCYD  HICE,   COKPUTALKER  CONSULTANT 

*  VERSION  1.06    MAY  30,  i977 

* 

*  COKrfON    JUMP   ADDRESS.    TA3LE 
COMJMP  ECU         ? 


CSRi 

PLAY 

BUF»DR 

UUfLEN 

PVTAB 

MATPAK 

HATERR 

RULES 

SETEUU 

SULES  3 

GENFO 

CLRBUF 


GETCNS 

PCUF1 

F1TAR 

F  2TAH 

FiTAR 

AViiTAR 

FkNIAR 


DS 
US 

CL- 
OG 
US 
DS 
DS 
OS 
OS 
DS 
OS 
OS 
Jr'.E- 
JMF 
Mt 
DS 
OS 
DS 
DS 
DS 
OS 


uL 


nfk.« 
UL 

IV 


COM  RAM  ORlGEN  DEFINITION 


ORG 
ECU 


CG-lJMF  +  iSOOH 
$ 


COM  SAM 

* 

*   CSni  SYS1L1  RAM  SPACE  DEFINITION 


rIATFTH 
l.'EGEND 
MATRIX 

MATLEIi 

FHCODE 

FEATA 

FEATB 

S'l  RES 

OUR 

MATEND 

BUFPTR 


DS 

2 

DS 

2 

ECU 

$ 

ECU 

95 

OS 

iMATLLN 

DS 

MATLEN 

OS 

MATLEN 

DS 

MATLEN 

DS 

MATLEK 

ECU 

5 

DS 

2 
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ADDH  Bi  B2  B3  E  Lif.'E   LABEi      OPCD   OPERAND 

3bEi  0SS0  ♦   IDE  NEXT  19  LOCATIONS  ARE  ACCESSED  BY  ROUTINES 

3bEl  US90  *   IN  SECTION  6  AND  MUST  NOT  BE  MOVED 

3oEl  060C  * 

36E1  0610  CCOUC       OS     1 

36E2  C62C  OFEATA      DS     1 

36E3  8  8 30  OFEATG      DS     i 

36E4  libit:    ODUR        DS     1 

3bES  Ue^O  OCID        OS     i 

36Eo  ObiO  ORANK       DS     1 

30E7  0  670  OPCT        DS     1 

36Eb  ObUO  OT1MES      DS     1 

36E9  0690  * 

36EJ  0700  CODEX       DS     1 

36EA  07i0  FLATAX      CS     1 

JbEB  0720  FEATBX      DS     i 

36EC  07  30  DUKX        DS     1 

36ED  0  740  C1DX        DS     1 

36EE  07SO  RANKX       DS.    i 

3bEF  0760  PCTX        DS     1 

JoFC  0770  TIMESX      DS     i 

3bFl  07b0  * 

3uri  0  790  BT  DS     i 

3bK2  ObOO  FT  DS     i 

36F3  OiiO  tC  DS     i 

3bF4  0d2O  * 

36F4  00  30  *   GEiiPR.-l  JLOCAL)  RAM  WORKSPACE 

36F4  0340  • 

36F4  03S0  TARG        DS     i 

36F1;  OooO  DVAL        DS     i 

36F6  0870  SD  DS     2 

36F8  0880  DELTA       DS     2 

3CFA  0390  PCOUNT      DS     1 

!6FB  0900  NTARGS      DS     i 

36FC  09iO  ASPT        DS     1 

36FD  0920  » 

3bFD  0930  **»*»»«*»« 

36FD  0940  * 

36FD  09i0  *   GENPKM 

36FD  09b0  * 

3bFD  0970  ORG    COHJMP+0E00H 

2E00  v;9b0  5ECTAD      ECU    S 

2EC0  0990  ' 

2E0O  1000  ********** 

2E00  lOiO  • 

2E0C  1C20  *   PHOMEKE  CODE  DEFINITIONS 

2E00  1030  * 

2E00        '  1040  01ERK       ECU    4 

2E00  lOSO  CP  ECU    39 

2E00  iOoO  * 

2E0''  1070  *   FEATURE  LADEL  DEFINITIONS 

2E0u  iObC  * 

2E00  10^0  IGNORE 

2E00  1100  STOP 

2EC0  iilO  PLOS 

2E0C  1X20  PLCSA 

2E00  1130  * 

2ECC  1140  *   OUTPUT  CHANNEL  DEFINITIONS 


ECU 

i 

ECU 

30H 

ECU 

2011 

ECU 

10H 
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ADDR    Bl    B2    B3    E    LINE      LABEL  OPCD  OPERAND 

2E0C  1150  « 

2E00  1160  CHANAV  ECU  0 

2E0C  U70  CHANF1  ECU  2 

2E00  1180  CHANF2  EQU  3 

2EOC  1190  CIIANF3  ECU  4 

2 ECO  12C0  CHANAH  ECU  5 

2EC0  1210  C11ANAF  ECU  6 

2E00  1220  CHANFF  ECU  7 

2EC0  12  30  CHANAN  ECU  6 

2E00  1240  * 

2E0C  12S0  »*****•**« 

2E0U  1260  * 

2E00  1270  *   GENPRM  SUBROUTINE 

2E0C  1230  ♦ 

2E00    21    OS    35  1290    GENPRM  LXI  H.MATRIX+1 

2E0  1    22    00    35  1300  SHLD  MATPTR      *    SET    MATPTR   TO   COL    2    (SKIP    i) 

2E06    11    El     36  i310  LXI  O.OCODE 

2E09    CD    2A    20  1320  CALL  GETCNS       *   GET    CONSTANTS    FOR    COL    2    PAUSE 

2E0C    3A    E4    36  13  30  LDA  ODUR 

2E0F    4F  1340  MOV  C,A 

2EiO    06    CO  1350  MVI  U,0      ' 

2E12    CD    IE    20  1360  CALL  CLRBUF       *    INITIALIZE    THE    iST    FRAME 

2EiS    11    F7    FF  1370  LXI  D,-9 

2Eia    13  1330  DAD  D 

2E19    22    DF     36  1390  SHLD  BUFPTH       *    SET    BUFPTR    TO    LAST    FRAME    AV 

2E1C    21    06    35  i400  LXI  H.MATRIX+2 

2E1F    22    CO    35  1410  SHLD  MATPTR      *    MATPTR    PTS    TO    1ST    ACTUAL    PHCN 

2E22  1420    * 

2E22  1430    * 

2E22  1440    *      DURING  PROCESSING    FOR    EACH    PHON ,    MATPTR    INDICATES 

2E22  1450    *      THE    CURRENT    MATRIX    COLUMN.       BUFPTR    IS    THE    PARAMETER 

2E22  1460    *      DUFFER  INDEX.       IT    CONTAINS    THE    ADDRESS    OF    THE    AV 

2E22  1470    *      PARAMETER    IN    THE    LAST    FRAME   OF    THE    PREVIOUSLY 

2E22  1480    *      PROCESSED    PHON. 

2E22  1490    * 

2E22    11    E9    3b  15C0    GPLOOP  LXI  D,CODEJ< 

2E25    CD    2A    20  1510  CALL  GETCNS       *   GET    CONSTANTS    FOR    NEXT    PHON 

2E28    3A    LA    36  i520  LDA  FEATAX 

2E2B    £6    01  1530  ANI  IGNORE 

2E2D    C2    7C    30  1540  JMZ  ENDPRM      *    IGNORE    THIS    MATRIX    COLUMN 

2E30     1A    E3    36  i550  LDA  CFEATB 

2E33    £6    20  1560  ANI  PLOS 

2E35    CA    40    2E  1570  JZ  NOPLOS       *    THE    PRECEEDING    WAS    NOT    A    PLOSIV 

2E33    3A    EB    36  i580  LDA  FEATBX      *    PREVIOUS    VvAS    PLOSIVE 

2E-3B    E6    80  1590  ANI  STOP 

2E3D    CA    30    2F  1600  JZ  SETASP      *    CURR    IS    -STOP,    SET    ASPIRATION 

2E40  1610    « 

2E40  ib2C  *   NOPLOS  IS  THE  MAIN  GENERATOR  LOOP  FOR  MOST 

2E4U  i630  *   PHON  SECUENCES. 

2E40  1640  *   FORMANT  TRANSITIONS  ARE  GOVERNED  BY  RELATIVE  RANKS 

2E4C  1650  • 

2E40  3A  EE  36  1660  NOPLOS  LDA  RANKX    *  COMPARE  RANKS  OF  CURRENT 

2E43  47  i670  MOV  B,A 

2E44  3A  E6  36  1680  LDA  ORANK    *     AND  PREVIOUS  PHONS 

2E47  Bb  1690  CMP  B 

2E48  CA  6D  2E  1700  JZ  ECRANK   *  RANKS  ARE  ECUAL 

2E4S  DA  85  2E  1710  JC  OLTCUR   •  OLD  LESS  THAN  CURRENT 
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ADDR  Bl  02  D3  E  LINE   LABEL 


CPCL)   OPERAND 


2E4E 

2E1i 

2ES2 

2E14 

2E57 

2ES9 

2ESA 

2ESD 

2E5C 

2ESD 

2E1E 

2E61 

2E64 

2E65 

2E67 

2EbA 

2EbD 

2EbO 

2E70 

2E72 

2E7S 

2E7d 

2E7A 

2E7D 

2E7F 

2E62 

2E85 

2E8S 

2E8b 

2E69 

2EbB 

2EbE 

2E90 

2E91 

2E92 

2E91 

2E94 

2£9<i 

2E9b 

2E9B 

2E9E 

2E9E 

2E9E 

2E9E 

2EAi 

2hA2 

2EAS 

2EAd 

2EAB 

2EAC 

2EAF 

2EB2 

2EB'5 

2EB6 

2EU9 

2EBC 

2EBC 


3A  Ed  ib 

6P 

£6  UP 

)2  Fl  lb 

26  00 

29 

29 

29 

29 

7C 

12  F2  16 

1A  E7  16 

2F 

C6  OS 

32  F3  16 

C3  9E  2E 

1A  E8  16 

E6  OF 

12  Fi  16 

1A  FC  lb 

Eb  UF 

12  F2  16 

IE  02 

32  F3  36 

C3  9E  2E 

3A  FC  16 

6F 

E6  UP 

J2  F2  16 

26  CO 

29 

29 

29 

29 

7C 

12  Fl  16 

3A  EF  16 

32  Fl  36 


2A  30  20 

EB 

01  02  CO 

CD  At  10 

2A  12  20 

EB 

01  0  1  00 

CD  AE  1U 

2A  34  20 

EB 

01  04  UU 

CD  AE  10 


1720 
1730 
1740 
1750 
1760 
1770 
178C 
i790 
ibOO 

laic 

id  20 

la  lo 

ib4Q 
IdlO 
ldbO 
ld7U 
lBdO 
ib90 
i90U 
19i0 
1920 

19  10 
1*40 
1950 
i960 
1970 
i980 
1990 
2000 
2010 
2020 
2030 
2040 
2010 
206C 

20  7  0 
2080 
2090 
2100 
2110 
2i20 
2130 
2140 

2ibO 
2170 
2i80 
2190 
220  0 
22iO 
2220 
2210 
2240 
2250 
2260 
2270 
2280 


ECRANK 


OLTCUR 


LDA 
MOV 
AMI 

STA 
HVI 
DAD 
DAD 
DAD 
DAD 
MOV 
STA 
LDA 
CMA 
ADI 
STA 
JMP 

LDA 
AMI 
STA 
LDA 
ANI 
STA 
MV1 
STA 
JMP 

LDA 
MOV 
ANI 
STA 
MVI 
DAD 
DAD 
DAD 
DAD 
MOV 
STA 
LDA 
STA 


OT1MES 

L,A 

OFH 

BT 

H.O 

H 

H 

H 

H 

A,H 

FT 

OPCT 

S 

PC 

SETFOR 

OTIMES 

OFH 

BT 

T1MESX 

OFH 

FT 

A, 2 

PC 

SETFOR 

TIMESX 

L,A 

OFH 

FT 

H.O 

H 

H 

H 

H 

A,H 

BT 

PCTX 

PC 


*  OLD  GREATER  THAN  CURRENT 

•  BACK  TIME  -  OLD  TP(U 


*  FORWARD  TIME  -  OLD  TSEC 


*  PC-l.C-OPCT(BN  PT  RT  OF  BIT  2) 


•  BACK  TIME  -  OLD  TPRI 

•  FORWARD  TIME  »  CL'HR  TPRI 

•  PC-.  5  (BIN  PT  RIGHT  OF  BIT  2) 


*    FORWARD   TIME    •   CURR   TPRI 


*  BACK   TIME    -   CURR   TSEC 

*  PC    «   CURRENT    PCT 


COMPUTE    i    STORE     1    FORMANT    PARAMETERS 


SETFOR 


LHLD 

XCHG 

LXI 

CALL 

LHLD 

XCHG 

LXI 

CALL 

LhLD 

XCHG 

LXI 

CALL 


FlTAR 

B.CHANF1 

GENFX 

F2TAR 

B.CHANF2 

GENFX 

F3TAR 

B.CHANF3 

GEtlFX 


•SET    FOKrfANT    1 


*    SET    FORMANT    2 


•    SET    FORMANT    1 


COMPUTE    i    STORE    AV 
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PACE  US 


ADDR  Bi  B2  13  1  E  LINE   LABEL 


OPCD   OPERAND 


2EEC 

2EBC 

2E3E 

2EC1 

2  EC  4 

2EC7 

2EC9 

2ECA 

2ECB 

2LCC 

2ECD 

2ECF 

2ED2 

2EDS 

2EDS 

2EOS 

2EDS 

2ED6 

2E03 

2EQ9 

2EDA 

2EDO 

2EF0 

2EEO 

2EE0 

2EEO 

2EE2 

2EES 

2EE3 

2EE3 

2EEC 

2EEE 

2EEF 

2EF0 

2EF1 

2EF3 

2EF4 

2EF7 

2EFA 

2EFA 

2EFA 

2EFA 

2EF8 

2EFC 

2EFD 

2EFF 

2F0J 

2FJ1 

2FC6 

2F07 

2  Ft' A 

2FOD 

2?CE 

2F0F 

2P1C 

2F13 

2F13 


Co  OC 

CD  2D  20 

2A  36  20 

3A  E9  3b 

id  UC 

iP 

IS 

7E 

FS 

E6  FC 

01  00  OU 

CL  Co  10 


Fi 

E6  OF 

o7 

ul 

01  OS  00 

CD  Co  30 


06  01 
CD  2D  20 
M  )U 
1A  E9 


20 
36 


oo 


iC 


SF 

16 

19 

7E 

FS 

Lb 

87 

CI  06 

CD  Cb 


Fi 

33 

38 

L6  EO 

S7 


00 
SO 


0  7  00 


01 

2A  DF  36 

09 

3A  EC  36 

CI  0*  00 

09 

72 

30 

C2  00  2F 


2290  « 

2  300  SETAMP 

2310 

2  320 

2  3  30 

2340 

23S0 

2360 

2370 

2  330 

2390 

2400 

2410 

242C  • 

2430 

2440 

24SU 

2460 

2470 

2430 

2490 

2S0  0 

2S10 

2S20 

2S30 

2S40 

2SS0 

2S60 

2S70 

2S3C 

2S9G 

2600 

2610 

2b20 

26  30 
2o4C 
2bS0 
26b0 
2o70 
2b30 
2690  • 
2700 
27i0 
2720 

27  30 
274C 
27-SO 
2760 
2770 
27BO 
2790 

2300  SETFF 

2010 

2320 

23)0 

2340  • 

23S0 


MVi  B,0 

CALL  PC3FT 

LHLD  AVHTAR 

LDA  CCDEX 

MVI  D,C 

NOV  E,A 

DAD  C 

MOV  A,M 

PUSii  PSW 

AN1  OF  OH 

LXI  a, GHANA  V 

CALL  GENAX    *  3ET  AMPLITUDE  OF  VOICING 


*  SETUP  PC.BT  &  FT  WITH  AV  INFO 


*  GET  AV/AH  TARGET  BYTE 

*  MASK  TO  KEEP  AV 


COMPUTE    &    STOflE    AH 


POP 

PSW 

AN  I 

OF  LI 

ADD 

A 

ADD 

A 

LX1 

B.CHAMAH 

CALL      GENAX 
COMPUTE    i    STORE    AF 


*  NOW    CASK   TO    KEEP    All 

*  KELT    BY    4 

*  SET  AMPLITUDE  OF  HISS 


*  SET  PC,  CT  i    FT  WITH  AF  INFO 


•  GET  FRIC/NASAL  TARGET  EY'E 

*  f'ASK  TO  KEEP  AF  TARGET 

CALL      GENAX         *    SET    AMPLITUDE    OF    FRICAT10I. 
SET    FF    TO   TARGET    VALUE    FOR    TIME    DURX 

GET    FnIC    TARC    AGAIN 


MVI 

B,l 

CALL 

PC  B  FT 

LHLD 

FSHTAR 

LDA 

COCEX 

MOV 

E,A 

MVI 

0,0 

DAD 

D 

MOV 

A,M 

PUSH 

PSW 

AN1 

1CH 

ADD 

A 

LXI 

8.CHAKAF 

POP 

PSW 

DCX 

SF 

DCX 

SP 

ANI 

CEOH 

HOV 

D,A 

LXI 

B.CHANFF 

LHLD 

BUFPTR 

DAD 

B 

LDA 

DURX 

LXI 

B.9 

DAD 

0 

HOV 

M.D 

DCR 

A 

JNZ 

SETFF 

«    EUT    LEAVE    IT    IN    THE    STACK,    TOO 
«    KEEP    FF    TARGET 


•   SET    FF    DIRECTLY    PI:OH    TARGET 


*      COMPUTE    i    STORE   AN 
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MV1 

A, 3 

• 

PC-. S    FOR    NASAL 

STA 

PC 

OCR 

A 

STA 

ET 

• 

BACK    i    FORW    TIMES    -    2    FRAMES 

STA 

FT 

POP 

PSW 

» 

GET   NASAL   TARGET 

AN  I 

3 

ADD 

A 

ADO 

A 

ADC 

A 

ADD 

A 

ADD 

A 

* 

PULT    BY    12 

lxi 

B.CHANAN 

CALL 

GENAX 

* 

SET    AMPLITUDE    OF    NASAL 

JMP 

ENDPRM 

PAGL  Ob 

ADDS  Bi  B2  Bi  E  LINE   LABEL      OPCC   OPERAND 

2Fil  2do0  * 

2F1  3  !E  03  2b  70 

2F1S  )2  F3  3b    2bb0 

2F1B  iD  2d9C 

2Fi9  12  Fl  i-j    2S0U 

2F1C  32  F2  36    2910 

2FiF  Fl  2920 

2F20  E6  0J  2910 

2F22  87  2940 

2F21  67  23S0 

2F24  87  2960 

2F25  87  2970 

2F26  67  29bO 

2F27  01  03  00    2990 

2F2A  CD  C8  10    (000 

2F2D    C3    7C  10         1010 

2F30  )020    * 

2F30  10  30    * 

2F30  3040    *      HANDLE    -STOP    AFTER    PLOSIVE 

2F10  3050    •      SETASP    SETS    THE    PLOSIVE    BURST    PULSE 

2F10  3060    *      AMD    IF    HEEDED,    ASPIRATION    IN    THE    FOLLOWING    PHON. 

2F30  3070    • 

2F30     3A    El  lo          1080    SETASP              LDA         OCODE 

2F3  1    D6    27  1090                                SUI         CP 

2F3S    4F  11C0                                MCV         C,A              •    PLOSIVE    CODE    -   CODE   OF    "P" 

2F3o    06    0O  liiO                                MVI         B,0 

2F38    2i     Id  32         3120                                LXI         H.PLOSC    *    MAKE    POINTER    TO    PLCSC    TABLE 

2F1B    09  1110                                DAD         B 

2F3C    7E  li40                                MCV         A,M              *   GET    LENGTH    OF    BURST    PULSE 

2F3D    47  UVJ                                MCV         B,A 

2F3E  67  llbO             ADD    A 

2F3F  67  3170             ADD    A 

2F4C  37  3id0             ADD    A 

2F41  80  1190             ADD    B 

2F42  2F  3200             CMA 

2F4  3  3C  3210             INR    A 

2F44    4F  3220                                MCV         C,A 

2F4S    76  12  30                                MOV         A,B              *    A    »    PULSE    LENGTH 

2F46    06    FF  3240                                MVI         B.2SS         *    BC    -    -9* (PULSE    LENGTH) 

2F46    2A    DF  16          32SO                                LHLD      BUFPTR 

2F4B    09  32oO                                DAD         B 

2F4C    01    06  00         1270                                LXI         B.CHANAP 

2F4F    09  3280                                DAO         0 

2FS0    01    09  00         1290                                LXI         B,9 

2FS3    09  1100    BURST                DAU         B 

2FS4     io    24  3  310                                MVI         M,16            *    PLOSIVE    BURST    AF    VALUE 

2FS6    ID  3120                                DCR         A 

2F17    C2    S3  2F          3  3  30                                JNZ         BURST 

2F1A  3340    • 

2F5A  IISO  *   COHFUTE  FCRMANTS  FOR  PHON  AFTER  PLOSIVE 

2F  A  3360  * 

2FSA    3A    EE  36          3  370                                LDA         RANKX 

2FSO    F£    0  3  1180                                CPI          3 

2F1F    02    71  2F          3390                                JNC         GTPLOS       *    CURS    RANK    >    PLOS    RANK    (-2) 

2F62     3E    02  3400                                BVl         A, 2 

2F64     32    F3  36          3410                                STA         PC                 »    CUKK    RANK    <»    2,    PC-0.5 

2P67     3A    E8  3b         3420                                LDA         OTIHES       *    FT    »  OLD    TSEC 
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ADDB  Bl  32  B3  E  LINE   LABEL 


OPCD   OPERAND 


2F6A 

OF 

343U 

RRC 

2F6B 

UP 

1440 

RRC 

2F6C 

OF 

34  SO 

RRC 

2F6D 

OF 

34oO 

KRC 

2F6E 

C3 

7A 

2F 

3470 

JMP 

SET1MS 

2F7i 

3480 

* 

2F71 

iA 

EF 

3b 

3490 

GTPLOS 

LDA 

PCTX 

2F74 

J2 

F3 

ib 

3S00 

STA 

PC                 *    PC    -    PCT   OF    CURRENT    PHON 

2F77 

iA 

FO 

3b 

ISlO 

LDA 

T1MESX       *    FT    -   CURR.    TPRI 

2F7A 

Eb 

UF 

JS20 

SET1MS 

ANI 

OFH 

2F7C 

32 

F2 

ib 

3S30 

STA 

FT 

2F7F 

3£ 

Oi 

3140 

MVI 

A,l 

2Fbj. 

12 

Fl 

3b 

J1SC 

STA 

ET                 *    BACK    TIME    -    1     (TO    SET    BV, 

2FS4 

3160 

* 

2FS4 

3570 

* 

GENERATE    FGRMANTS    DURING    ENTIRE    POST-PLOSIVE 

2Fb4 

5lbO 

• 

2F84 

2A 

30 

20 

3190 

LtlLD 

FiTAR 

2F37 

EB 

3600 

XCHG 

2Fdb 

01 

HI 

00 

3610 

LXI 

B.CHANF1 

2F8B 

CD 

AE 

10 

3620 

CALL 

GENFX         'SET    FORMANT    1 

2FGE 

2A 

)2 

20 

1630 

LHLD 

F2TAR 

2F9i 

E3 

3640 

XCHG 

2F92 

01 

03 

00 

3610 

LXI 

CCHAHF2 

2F9S 

CD 

AE 

10 

3660 

CALL 

GENFX         *    SET    FORMANT    2 

2F9b 

2A 

14 

20 

1670 

LtlLD 

F3TAR 

2F93 

EO 

lb80 

XCHG 

2F9C 

oi 

'.'4 

00 

lb90 

LXI 

B.CHANF3 

2F9F 

CD 

AE 

Hi 

3700 

CALL 

GF.NFX         *    SET    FORMANT    3 

2FA2 

1710 

* 

2FA2 

3720 

# 

SET 

FF    »   TARGET    VALUE    FOR    :!"::    DURX 

2FA2 

3710 

* 

2FA2 

2A 

)b 

20 

1740 

LHLD 

FRNTAR 

2FAS 

JA 

E9 

Jb 

3710 

LDA 

CODEX 

2FAb 

SF 

1760 

MOV 

E,A 

2FAS 

i6 

ou 

3770 

MVI 

D,0 

2FAB 

19 

1760 

DAD 

D 

2FAC 

7E 

3790 

UOV 

A,M              *    GET    PHON    X    FRICATIVE    TAR 

2FAD 

Eo 

EO 

3dOO 

ANI 

CEOH            *    MASK    TO    KEEP    FF 

2FAF 

S7 

1810 

KCV 

D,A 

2FBO 

2A 

CF 

3o 

ld20 

LHLD 

BUFPTR 

2FB3 

Ui 

0  7 

00 

38  30 

LXI 

B.CHANFF 

2F36 

09 

3d40 

DAD 

B 

2FB7 

IA 

EC 

3b 

idIO 

LDA 

DURX 

2FBA 

01 

03 

CO 

3860 

LXI 

B,9 

2F3Q 

us 

3370 

SETFF2 

DAD 

B 

2FBK 

72 

3880 

MOV 

M,D              *    SET    FF    DIRECTLY    FROM    TAR 

2FBF 

3D 

3890 

DCR 

A 

2FC0 

C2 

3D 

2F 

3900 

JNZ 

SETFF2 

2FC3 

39iC 

* 

2FC3 

1920 

• 

SET 

AN»0    FOR 

TIME    DURX 

2FC3 

3930 

* 

2FC3 

2A 

DF 

36 

3940 

LHLD 

BUFPTR 

2FC6 

11 

Od 

00 

1910 

LXI 

D.CHANAN 

2FC9 

19 

3960 

DAD 

D 

2FCA 

3A 

EC 

36 

1970 

LDA 

DURX 

2FCD 

09 

3980 

SET  AN 

DAD 

8 

2FCE 

ib 

00 

3990 

MVI 

M,0              «SETAN»C 

132 


PAGE    08 


ADDR    81    E2    111    E    LINE       LA6EL 


OPCO      OPERAND 


2PD0 

2FD1 

2FD4 

2FD4 

2FD4 

2FD4 

2FD7 

2FD9 

2FDC 

2FDF 

2FE1 

2FE2 

2FES 

2FE6 

2FE9 

2FE9 

2FE9 

2FE9 

2FEC 

2FEF 

2FF0 

2FF1 

2FF3 

2FF4 

2FF7 

2FF7 

2FF7 

2FF7 

2FFA 

2FFD 

3000 

3001 

3002 

5004 

300S 

3C08 

3008 

3008 

3008 

)C09 

3O0C 

3  OOF 

3010 

30il 

3014 

3017 

3018 

301A 

30iD 

3C1D 

301D 

301D 

3020 

3021 

1024 

302S 

30  28 


3D 

C2    CD    2F 


SA  E3    36 

E6  10 

CA  3A    30 

3A  EC     36 

16  OS 

BA 

DA  E6    2F 

7A 

32  FC    36 


2A    DF    36 

11    OC    00 

19 

09 

36    CO 

3D 

C2    FO    2F 


3A    FC    36 
2A    DF    3b 

ll    06    00 

19 

09 

36    00 

3D 

C2    01     30 


AF 

32    F4 

3A    FC 

47 

4F 

2A    DF 


36 
36 


36 

OS    00 


1 

19 

36     32. 

CD    E7    30 


36 


3A  FC 
47 

3A  EC    36 
90 

CA  7C     30 

32  EC    36 


4000 

4010 
4020 
4030 
4040 
40S0 
4060 
4070 
4030 
4090 
4100 
4110 
4120 
41  JO 
4i40 
41S0 
416C 
4170 
4180 
4190 
4200 
4  210 
4220 
4230 
4240 
42SO 
4260 
4270 
4  28  0 
4290 
4  300 
4  310 
4320 
4330 
4340 
43SO 
4360 
4370 
4  380 
4  390 
4400 
4410 
4420 
4430 
4440 
44S0 
4460 
4470 
4480 
4490 
4S00 
4  310 
4S20 
4S30 
4S40 
4SS0 
4S60 


DCR 
JNZ 


A 
SCTAN 


*  SEE    IF    PLOSIVE    SHOULD    EE    ASHhAIED 

* 

LDA  OFEATB 

ANI  PLOSA 

JZ  FIHASP      *    NO,    FINISH    CURK.    PHON 

LDA  DURX 

MVI  D,S  *    BASE    ASP    TIME    -    SO    MSEC 

CMP  D 

JC  S+4  «    DURX    <    SO    MSEC,    SET    ASPT'CURX 

MOV  A,D  «    THERE'S    ROG.1 ,     SET    ASPt-SC    MSEC 

STA  ASPT 
* 

*  SET   AV    «    0    FOR    DURATION    OF    ASPIRATION     (A3PT) 


LHLD  DUFPTR 

LXI  D.CHANAV 

DAD  D 

DAD  B 

MVI  H,0  *    SET   AV 

DCR  A 

JNZ  SETAV 


SETAV 


SET    AF 


■    0    DURING    ASPIRATION 

LDA  ASPT 

LHLD  BUFPTR 

LXI  D.CHANAF 

DAD  D 

DAD  B 

MVI  M,0  •    SET   AF    »    0 

DCR  A 

JNZ  SETAF 


CALL    FRWRD    TO    PRODUCE    TRANSIENT    PULSE    ON    AH 


SETAF 


XRA 

A 

STA 

TARG 

LDA 

ASPT 

MCV 

B,A 

MOV 

C,A 

•    DECAY    TO    0    BY    END   OF    ASP    TIME 


LHLD  BUFPTR 

LXI  O.CHANAH 

DAD  D 

MVI  M,SC  •    INITIAL    All    FULSE    AMPLITUDE 

CALL  FRWRO 
* 

*      SEE    IF    ASPIRATION    TIME   TOOK    THE    ENTIRE    CURR.    FHOK 


LDA 

ASPT 

MOV 

B,A 

LDA 

DURX 

SUB 

3 

JZ 

ENDPRM 

STA 

DURX 

»    ASP  TIME    TOOK    IT   ALL,    DONE 
*    SET    DURX-DURX-ASPT 
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ADDS    Bl    B2    B3    E    LINE       LABEL 


OPCD      OPERAND 


302B 

7a 

4S7C 

)02C 

d7 

4580 

!C2D 

tt7 

4590 

3C2E 

d7 

4  60  0 

3C2F 

80 

4610 

1C3C 

4F 

462C 

1031 

0  6 

00 

4630 

JC  33 

2A 

DF 

36 

4640 

3036 

09 

4b5C 

3037 

22 

DF 

36 

466C 

303A 

4670    * 

3C3A 

4680    *      CO.1l 

)C3A 

4690    * 

30  3A 

05 

CO 

47C0    FINASF 

30  3C 

CO 

2D 

20 

4710 

30  IF 

3E 

01 

4720 

3041 

32 

Fl 

36 

4730 

3044 

2A 

ib 

20 

4740 

304  7 

3A 

E9 

36 

4  7  SO 

3C4A 

ib 

00 

4760 

3  0  4C 

SF 

4770 

304D 

19 

4730 

304E 

c5 

4790 

304F 

7£ 

4dCC 

3  0  50 

Fi 

4810 

30Si 

E6 

F0 

4020 

3053 

CI 

00 

00 

4  b  30 

3C56 

CD 

C3 

30 

4340 

30S9 

4850    * 

3059 

4660    *      COMI 

3059 

4870    * 

3059 

Fi 

4380 

3C5A 

E6 

OF 

4890 

30SC 

67 

4900 

30  50 

o7 

4910 

305E 

01 

05 

JO 

4920 

3061 

CD 

Cd 

30 

4930 

3064 

4940    • 

3064 

4950    •      COM 

3064 

4960    * 

30  64 

IE 

J  ) 

4970 

3  0  66 

12 

F2 

!6 

4980 

3069 

1C 

4990 

30bA 

j2 

F3 

36 

5000 

306D 

2A 

Id 

20 

5C1C 

3070 

Di 

■30  20 

3071 

19 

50  30 

3072 

7E 

5040 

30  7  3 

Et> 

J.C 

50  50 

S075 

o7 

5060 

3076 

01 

0  6 

00 

5070 

3079 

CD 

Co 

30 

5C3C 

307C 

5090    * 

30  7C 

51C0    * 

307C 

:o 

5110    ENOPRM 

3070 

2A 

EC 

36 

5120 

3Ci: 

2o 

00 

5130 

NOV 

A,E 

ADD 

A 

ADD 

A 

ADD 

A 

ADD 

B 

MOV 

C.A 

*    ASPT«-9    INTO    BC 

MVI 

B,0 

LHLD 

BUFPTR 

DAD 

B 

SHLC 

BUFPTR 

*    BUFPTR«BUFPTR+9*AFPT 

COMPUTE    AV    FOR    REMAINDER   OF    PHON 


MVI 

CO 

CALL 

PCBFT 

MVI 

A,l 

STA 

BT 

LHLD 

AVHTAR 

LDA 

CCDEX 

MVI 

D,0 

MOV 

E,A 

DAD 

D 

PUSH 

D 

MOV 

A,K 

PUSH 

psv; 

AN1 

CFOH 

LXI 

B.CHANAV 

*  GET    AV/A1I    VALUES    FOH    PC    i    FT 

*  BT=»i    SETS    BVAL    FROM    TARG 


*  SAVE    CODEX   TABLE    OFFSET 

*  GET    AV/AK    TARGET    BYTE 

*  SAVE    IT 

*  MASK    TO    KEEP    AV 


CALL   GENAX    *  FINISH  AV  CURVE 
COMPUTE  AH  FOR  REMAINDER  OF  PHON 

*  MASK  TARGET  BYTE  TO  KEEP  AH 

•  MULT  BY  4 
IAH 

CALL   GEtlAX    *  FlNISh  AU  CURVE 

COMPUTE  AF  FOR  REMAIUCER  CF  PHON 


POP 

psw 

ANI 

OFH 

ADD 

A 

ADD 

A 

LXI 

e.CHANAH 

MVI 

A, 3 

STA 

FT 

* 

FT    -    3 

1NR 

A 

STA 

PC 

* 

PC    ■    1.00 

LHLD 

FRNTAR 

POP 

D 

DAD 

0 

MOV 

A,M 

* 

GET    FRIC/NASAL   ' 

ANI 

ICrf 

* 

MASK   TO    KEEP    AF 

ADD 

A 

LXI 

B.CHANAF 

CALL 

GE.\AX 

» 

FINISH    AF    CURVE 

HOP 

• 

• 

BREAKPOINT    LOC 

LHLD 

DURX 

HV1 


H,0 
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ADDP.    Dl    B2    B3    E    LINE       LABEL 


OPCD       OPERAND 


1082 

54 

5i40 

3083 

50 

"Sl-iO 

3084 

29 

5i60 

3085 

29 

5170 

!Qo6 

29 

5id0 

J08-7 

i9 

5190 

J088 

EB 

5200 

3089 

2A 

DF 

3b 

5210 

308C 

19 

5220 

308D 

22 

DF 

36 

52  30 

3090 

21 

E9 

36 

5240 

3093 

11 

El 

3b 

52  50 

3C96 

OE 

OU 

5260 

3093 

7E 

5270 

3099 

12 

5280 

3C9A 

2) 

5290 

309B 

n 

5300 

309C 

00 

5310 

)C9D 

C2 

98 

30 

5320 

30A0 

2A 

OC 

35 

5330 

30A3 

2! 

5340 

30A4 

22 

DC 

35 

5350 

30A7 

7E 

5360 

30A8 

FE 

U4 

5370 

30AA 

C2 

22 

2E 

5380 

30AD 

C9 

5390 

30A£ 

5400 

SOAE 

5410 

3CAE 

5420 

30AE 

5430 

30AE 

5440 

30AE 

5450 

30AE 

5460 

30AF. 

5470 

30AE 

5480 

3UAE 

5490 

30AE 

5500 

30AE 

5510 

SOAE 

5520 

30AE 

5530 

30AE 

)A 

E9 

36 

5  54  0 

iCBi 

OF 

5550 

10B2 

26 

00 

5560 

30B4 

19 

5  570 

30B5 

7E 

5580 

30B6 

32 

F4 

36 

5590 

3CB9 

2A 

DF 

36 

5600 

3CBC 

09 

5610 

3CBD 

96 

5620 

iOBE 

CD 

D2 

31 

56  30 

3CT1 

8a 

5640 

3UC.2 

32 

F5 

36 

5650 

30C5 

C3 

D8 

10 

5660 

IOCS 

5670 

3UC8 

5680 

30C8 

5690 

3UC8 

5700 

CNSLP 


MOV 

C,H 

MOV 

E,L 

DAD 

H 

DAD 

II 

DAD 

H 

DAO 

D 

XCHG 

LHLD 

BUFPTR 

DAD 

D 

SHLD 

BUFPTH 

LXI 

H, CODEX 

LXI 

D.OCODE 

MVI 

C,8 

MOV 

A,M 

STAX 

D 

INX 

H 

INX 

D 

DCR 

C 

JN2 

CNSLP 

LHLD 

MATPTR 

INX 

H 

SHLD 

MATPTR 

MOV 

A,M 

CPI 

CTERM 

JNZ 

CPLOOP 

RET 

• 

*    MULTIPLY    DURX    BY    9 


•    BUFPTH-BUFPTR+9*DURX 


MOVE    CURR    CO'ISTANT    VALUES 
INTO   OLD   COUSTANTS 


SEE    IF    NEW    CODE    IS    TERMINATOR 
NO,    DO    ANOTHER   COLUMN 
THAT'S    IT,     LETS    GO    LISTEN 


GENPRM    SUBROUTINES    AND    SOME    TABLES 


GENERATE    FORMANT    TRANSITIONS    BETWEEN    PREVIOUS 

AND    CURRENT    PHONS 

ON    ENTRY:       DE    POINTS    TO    FORMANT    TARGET    TABLE 

EC    CONTAINS    THE    OUTPUT    CHAN    NO   OF    THAT 
FORMANT    (TELLS    WHICH    BYTE   OF    FRAME) 


GEMFX 


LDA 

CODEX 

MOV 

L,A 

MVI 

H,C 

DAD 

D 

MOV 

A,M 

STA 

TARG 

LHLD 

BUFPTR 

DAD 

B 

SUB 

M 

CALL 

MULPC 

ADD 

M 

STA 

BVAL 

JMP 

GENBF 

*  SET    TARGET    V«,LUE 

*  SET    HL   TO    FORI-ANT,    FRAMF    I 

*  MULT    TARG-FX(I)     BY    PC 

*  BVAL-PX(I)+PC*(TAPG-FX(I)) 


GENAX   SUBROUTINE 

GENERATE   AMPLITUDE   TRANSITIONS    BETWEEN    PREV 

AND  CONSENT  PHONS 
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ADOR  81  B2  B3  E  LINE   LABEL      OPCC   OPERAND 

1CCB  5710  •   ON  ENTRY:   A  CONTAINS  THE  PARAM  TARGET  VALUE 

30C8  5720  •              BC  CONTAINS  THE  OUTPUT  CHAN  NO. 

50C8  57  30  * 

30C8  52  P4  36    5740  GENAX       STA    TARG     •  SET  TARGET  VALUE 

30CB  2A  CF  36    5750             LHLD   BUFPTR 

30CE  09  5760             DAD    B        *  SET  HL  TO  PARAM  IN  FRAME  I 

30CF  86  5770             ADD    H 

JODO  iF  "1780             RAR 

3QD1  B7  5790             OKA    A        *  DIVIDE  BY  2,  CLEAR  CARRY 

3CD2  CD  D2  31    5800             CALL   KULPC 

3005  32  F5  36    5di0             STA    3VAL     *  BVAL-PC* (TARC+Y) /2 

30D8  3A  Fl  lb    5820  GENBF       LDA    BT 

3CDB  47  5b  JO             hOV    B,A 

30DC    CD    6B  3i         5840                                CALL      BCWRD         *    MODIFY   CURVE    BACK    FROM    BOUNDARY 

1CDF     3A    EC  3b         51.50                                LDA         UURX 

10r;2    4F  5860                                HCV         C,A 

J0E3     3A    F2  36         5870                                LDA         FT 

30E6     47  5880                                      MOV          B,A 

3CE7  5690    • 

30E7  59O0    *      FRWRD 

30E7  5910    *      STORES    TFE    NEXT    H    FRAMES    BEYOND    THE    PARAM    VALUE 

30E7  5920    *      CURRENTLY    INDICATED    BY    HL.       B    CONTAINS    THE    NUMBER 

30E7  59)0     *       OF    FRAMES    HEEDED    TO    REACH    THE    VALUE    IN    LOC    TARG. 

30E7  5940    •      C    CONTAINS    THE    TOTAL.  NO.    OF    NEW    FRAMES    TO    BE 

30E7  5950    *      STORED.       B    MAY    BE    ANY    SIZE    RELATIVE    TO    C 

30E7  5960    * 

30E7    AF  5970    FRWRD 

30E8    B9  5930                                CMP         C                    *    RETURN    IF    NOTHING    TO    STORE 

30E9    C3  5990 

30EA     3C  6000 

30EB    B8  6010 

30EC    D2    5E  31         6020                                JNC         SETARG       *    B<-1,    SET    PARAM-TARG 

30EF    79  60 10 

30F0    90  6040 

iOFi    F2   F8  30         6050                                                FINPB         *    POS    «    OF    TARGS    AFTER    PARABOLA 

30F4    AF  6060 

30F5  C3  FB  30    6070 

30F8  4d  6080  PIHPB 

30F9  OD  6090 

30FA  3C  6100 

30FB  32  FB  36    61i0  DCPB        STA    NTARGS   *  SET  FOR  N  TARGS  AFTER  PARAB. 

3CFE  79  ol20 

30FF  32  FA  36    6130             STA    PCOUNT   *  SET  »  OF  PARABOLA  POINTS 

3102  4E  6i40             MOV    C,M      *  GET  PkEV  PAPAM  INTO  C 

3.L0  3  E5  6150 

3104     3A    F4  36         6i60 

3iC7    91  6170 

3106    F5  6i80 

3i09    D2    OE  31         6190 

310C    2F  6200 

310D     3C  6210 

110E     >7  b220                                MCV         D,A              *    ABS (TARG-PREV )     INTO    D 

310F    63  62  30 

31i0    2C  6240 

3111    AF  6250 

3H2    67  6260                                MOV         H,A              *    HL-N  +  1     (N    IS    DIST    TO    PEAK) 

3113    5F  6270 


XRA 

A 

CMP 

c 

RZ 

INR 

A 

CMP 

B 

JNC 

SETARG 

KOV 

A,C 

SUB 

B 

JP 

FINPB 

XRA 

A 

JMF 

DOPE 

roev 

C',6 

DCR 

C 

INR 

A 

STA 

NTARGS 

MOV 

A,C 

STA 

PCOUNT 

MOV 

CM 

PUSH 

H 

LDA 

TARG 

SUB 

C 

PUSH 

PSW 

JNC 

$  +  5 

CMA 

INR 

A 

MCV 

D,A 

MOV 

L,R 

INR 

L 

XRA 

A 

MOV 

H,A 

MCV 

E,A 
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PACE    12 


ACDR    Bl    B2    B3    E    LINE      LABEL 


OPCD      OPERAND 


il 


1114    CD    1  1    n 

ni7  29 

3ii8  S4 
31i9  SD 
3iiA  Fl 
iliB  D2  2b 
U1E  7C 
3iiF    2F 

3120  67 
3i21  7D 
3122    2F 

3121  6F 
1124  21 
312*1  37 
1126  ES 
li27  FS 
U28  63 
H29  26  00 
31213  CD  13  32 
)i2E    Fl 

U2F  DA     39     31 

3112  7C 

3111  2F 

3134  67 

313r>  7D 

3116  2F 

3117  bF 
3il8  21 

1139  22    F6    36 
313C    El 

I13D  SI 

313E  IE    UO 

3140  3A    FA     lb 

314  3  44 

1144  4D 

3145  19 

3146  Dl 

3147  El 

li4»  21    09    00 

1143  19 

3i4C  Dl 

1140  ES 
114E  72 

H4F  2A    F6    3b 

3152  09 

3153  3D 

3154  C2    43     31 
1117  El 

3158     3A    FB    36 
3iSB    B7 
USC    CH 
31SD    4F 
USE     3A    F4     36 
31ol    11    09    00 

3164  19 

3165  77 

3166  OD 


6260 
6290 
6  100 

6  310 

6  320 

6130 

6140 

61S0 

6  160 

6170 

6ld0 

6  190 

6400 

b410 

64  20    FRK2 

b4  10 

6440 

64SC 

64b0 

6470 

64b0 

6490 

6SOO 

6S10 

6S20 

bSlO 

6S4C 

6SS0 

6S60    FRW3 

6S70 

6SbO 

6S90 

6600 

66iO    FViDLP 

6620 

6o  10 

6640 

6u  30 

6660 

6670 

66  30 
6690 
6  700 
6710 
6720 

67  30 
6740 
6  7  SO 
6760 
6770 
67a0 
6790 

6800    SETARG 

6810 

6b2fi    SETAL 

6310 

6840 


CALL 

DAD 

MOV 

HOV 

POP 

JNC 

HOV 

CMA 

MCV 

MOV 

CMA 

MOV 

1NX 

STC 

PUSH 

PUSH 

MOV 

MVI 

CALL 

POP 

JC 

MCV 

CMA 

MOV 

MOV 

CMA 

MOV 
INX 

SHLD 
POP 

MCV 

MVI 
LDA 

MOV 

HOV 

DAD 

POP 

PUSH 

LXI 

DAD 

POP 

PUSH 

MGV 

LHLD 

DAD 

DCR 

JNZ 

POP 

LDA 

ORA 

RZ 

MOV 

LDA 

LXI 

DAD 

MOV 

DCR 


DIV 

H 

D,H 

E,L 
PSW 
FHW2 
A,H 

H,A 

A,L 

L,A 

H 

H 

PSW 

L.B 

H,  0 

DIV 

PSW 

FRW3 

A,H 

H,A 

A,L 

L,A 

H 

SD 

H 

D.C 

E,0 

PCOUNT 

B,H 

C,L 

D 

D 

H 

H,9 

D 

D 

H 

M,D 

SD 

B 

A 

FWDLP 

H 

NTARGS 

A 

C,A 

TARG 

E,9 

D 

K,A 

C 


•  ABS(2S6*(TARG-PR£V)/(N+1)  > 

•  SAVE    AS9 (DELIA) »2*QUOTIENT 


•FIX    SIGN    OF    DELTA 


*  AND  SAVE  IT 

*  AND  ITS  SIGN 


•  COMPUTE  ABSIDELTA/H) 


*  SECOND  DIFF  -  -DELTA/N 

*  GET  DELTA  INTO  HL 

*  PREV  PARAM  TO  DE 

*  AND  PARA3  COUNT  TO  A 


*    Y-Y+DELTA 


*  ADDR-ADDR+9 

*  STORE  NEW  Y  VALUE 


*  DELTA-DELTA+SD 


*  GET    ADDR    POINTER 

*  NO.    OF    TARG    VALUES    TO   WRITE 


*    SET    PARAM-TARG 
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ADDR  Bi  B2  B3  E  LINE   LABEL      OPCD   CPERAND 

3i67  C2  6J  31    6850  JNZ    SETAL 

6860  RET 

6870  * 

68o0  *  ECWRD 

6890  *  MODIFIES  N  FKAKES  BACKWAK '!  FROM  AND  INCLUDING 

6900  •  FRAME  I,  CURRENTLY  INDICATED  BY  HL. 

6910  *  E  CONTAINS  THE  NUMBER  N 

6920  *  LOCATION  BVAL  CONTAINS  THE  FINAL  DESIRED  VALUE 

6910  *  FOR  FRAME  I  (THE  LAST  ONE  MODIFIED). 

6940  •  OK  RETURN,  HL  IS  LEFT  POINTING  TO  THE  PARAM,  FRAME  I 

6950  * 

696U  BCWRD       MOV    A, 3      *  CHECH 
6970 
6980 
U    0990  JZ     SETIB    *  MODIFY  ONLY  THE  LAST  FRAME 

7000 
70iO 
7020 
7UJ0 
7040 
7050 
7060 

7070  INX    D        *  DE  -  -9»N 

7080 

7090  MOV    D,M      *  GET  YC.  VALUE  AT  FRAME  I-N 

7100 
7.110 
16    7120 
7i30 

7140  PUSH   PSW      *  PUT  SIGN(BVAL-YO)  IN  STACK 

31  7110 
7160 
7170 
7180 
7190 

7200  DAD    11        «  2«ABS(EVAL-YC)  ,  SIGN  IN  STK 

7210  DAD    H        *    ...  «16 

7220 

72  10 

724L 

7  2  50 

7260 
12    7270  CALL   MUL      •  COMPUTE  (DE)-N*(N+1) 

7280 
12    72*0  CALL   DIV      •  COMtUTE  lb*SECOND  DIFF 


116A    C9 

3163 

3i6B 

316B 

3163 

316B 

316B 

3163 

316B 

316B 

116B    7b 

116C    FE 

02 

316E    D8 

116F    CA 

CD 

3172    87 

3173    87 

3174    87 

3175    80 

3176    2F 

3177    IF 

3178    lb 

FF 

J17A    i3 

317B    19 

Ji7C     56 

317D    El 

317E    DS 

H7F     3A 

F5 

31s2    92 

3163    FS 

3J.64    D2 

d9 

31o7    2F 

1i-j3     3C 

3169    6F 

318A    26 

00 

3idC    29 

116D    29 

•i6E    29 

ii8F    29 

>A*0     2J 

119 1     10 

1192    .; 

1193    CJ 

l*9o    £9 

1-97    CC 

i  i 

119A    Fi 

1193    L2 

AS 

)i9E     7C 

119F    2F 

3iA0    o7 

31A1    73 

31A2    2F 

31A3    6F 

31A4    23 

31AS    29 

31A6    29 

31A7    29 

7  10.. 

31   .7  31U 

7  320 


7)30 

7  140 

7  350 

7  160 

7  170 

7  360 

7  390  3CW3 

7400 

7410 


RETURN,    HL 

IS    LE 

MOV 

A, 3 

CPI 

2 

RC 

JZ 

SETIB 

ADD 

A 

ADD 

A 

ADD 

A 

ADD 

B 

C.1A 

MOV 

E',A 

MVI 

0,255 

I. MX 

0 

DAD 

D 

MOV 

D,M 

PUSH 

H 

PUSH 

D 

LCA 

BVAL 

SUB 

D 

PUSH 

PSW 

JNC 

>  +  5 

CMA 

INR 

A 

MOV 

L,A 

MVI 

H,C 

DAD 

H 

DAD 

H 

DAD 

H 

DAC 

il 

DAD 

II 

I1CV 

E,E 

INR 

E 

CALL 

HUL 

,<CHG 

CALL 

DIV 

POP 

PSW 

JNC 

UCW  1 

KOV 

A, I, 

CMA 

MOV 

H,A 

HOV 

A,L 

CMA 

;iov 

L,A 

IMX 

H 

DAO 

II 

DAD 

H 

DAD 

H 
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ADDR  Bi  32  133  E  LINE   LABEL      OPCD   OPERAND 


31A8 

29 

7420 

DAD 

11 

31A9 

22 

F6 

36 

7430 

SilLD 

SD 

31  AC 

Dl 

7440 

POP 

D 

31AD 

IE 

00 

7  4  SO 

MVI 

E,0 

UAF 

^a 

7460 

MOV 

A,B 

31BC 

,D 

7470 

DCR 

A 

3iBl 

131 

oo 

00 

7480 

LXI 

B,0 

31B4 

2A 

F6 

36 

7490 

BCWLP 

L*HLD 

SD 

3137 

C9 

7  500 

DAD 

B 

liRO 

44 

7-310 

MOV 

B,  H 

3169 

40 

7  "320 

MOV 

C,L 

11BA 

19 

7  5  30 

OAD 

D 

iliiB 

01 

7540 

POP 

D 

UBC 

i;5 

7550 

PUSH 

H 

3iBL 

2i 

'J  9 

00 

7560 

LXI 

H,9 

uco 

19 

7  570 

DAO 

D 

11C1 

Dl 

7530 

POP 

0 

31C2 

B5 

7590 

PUSH 

H 

3IC2 

72 

7600 

MOV 

K,D 

31C4 

!0 

76i0 

DCR 

A 

31C5 

C2 

B4 

31 

7620 

JNZ 

3CWLJ 

I1C8 

01 

7630 

POP 

D 

31C9 

ii 

0  9 

00 

7640 

LXI 

D,9 

31CC 

19 

7  6  50 

DAD 

D 

31CD 

3A 

F5 

36 

7660 

SETIB 

LDA 

BVAL 

31D0 

77 

7670 

MOV 

M,A 

31D1 

C9 

76J0 

RET 

31D2 

7  6  90 

* 

31D2 

7700 

* 

KULPC 

11D2 

7710 

* 

MULT1P 

^    ABS  (A)    EY 

3iD2 

7720 

« 

POSSIBLE    VALUES    OF 

3iD2 

7730 

* 

STORED 

WITH    THE    BU 

3iD2 

7740 

• 

RETURN 

RESULT    IN    A 

UD2 

7750 

* 

(DE) 

J3ST, 

(BC)     t 

3i02 

7760 

* 

3iD2 

E5 

7770 

KULPC 

PUSH 

H 

31D3 

IE 

00 

7780 

MVI 

E,0 

31D5 

32 

DB 

3i 

7790 

JNC 

MPC1 

3i08 

2F 

7800 

CMA 

31D9 

3C 

7J10 

IHB 

A 

31DA 

iD 

7820 

DCR 

E 

31DB 

6F 

7830 

MPC1 

MOV 

L,A 

31DC 

3A 

F3 

36 

7340 

LDA 

PC 

3iDF 

IF 

78  50 

RAR 

3iEC 

67 

7860 

MOV 

H,A 

31E1 

IE 

00 

7U7C 

MVI 

A,0 

3iE3 

D2 

Eo 

31 

733C 

JNC 

MPC2 

31E6 

3r> 

7890 

ADD 

L 

31ET 

IF 

7900 

RAR 

3iE6 

57 

7910 

MPC2 

HOV 

D,A 

31E9 

7C 

792C 

MOV 

A,H 

3iEA 

IF 

7930 

RAR 

31EB 

67 

7940 

MOV 

H,A 

31EC 

7A 

7950 

MCV 

A,  D 

3IED 

02 

F2 

31 

7960 

JNC 

HPC3 

31F0 

85 

7970 

ADD 

L 

31F1 

IF 

798D 

RAR 

PAGE  14 

*  SD»256'SECCND    CIFF 

*  GET    YO    VALUE    SACK 

*  (DE)»256*Y0 

*  LOOP    COUNT    IS    N-i 

*  ItJIT    DELTA  =  0 

*  DELTA-OELTA+SC    INTO    BC 

*  Y-Y+DELTA 

*  NEW  ADDR-ADDH+9 


*  CLEAN  UP  THE  STACK 

*  PUT  QVAL  IN  LAST  FRAME 

PC,  SIGN (A)  IS  IN  CARRY 
PC  ARE  0,1/4,1/2.3/4,  .  1 
1  PT  TO  THE  RIGHT  OF  BIT  2 

(HL)  RESTORED 

*  IF  CARRY  SET,  ... 

*  COMPL  A,  SAVE  CARRY  IN  E 
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ADDR  Bl  B2  B3  E  CINE   LABEL      OPCD   OPERAND 

31F2  57  7990  MPC3 

UFJ  7C         8000 
!1F4  IF  dOlU 

31F5  7A  8020 

31F6  02  FA  U    80  30 
3iF9  85  8U40 


MOV 

D,A 

MOV 

A,H 

RAR 

HCV 

A,D 

JNC 

MPC4 

ACD 

r 

POP 

H 

INR 

E 

RIJZ 

CHA 

INR 

A 

RET 

MVI 

d.o 

MVI 

C.9 

MOV 

A,E 

RAR 

MOV 

E,A 

UCR 

C 

KZ 

MOV 

A,L 

JMC 

MUL3 

ADD 

D 

RAR 

MOV 

D,A 

JMP 

MUL2 

UFA  Ei  B050  MPC4 

3iFE  1C  3060 

31FC  CC  3070 

UFD  2F  3080 

31FE  1C  8090             INR    A        *  RESTORE  SIGN  OF  A 

31FF  C9  310C 

3200  BiiC  * 

1200  312C  •   MUL  SUBROUTINE 

3200  3130  *   MULTIPLY  (B)  BY  (E),  lu  BIT  RESULT  IN  DE 

3200  6140  *     SEE  INTEL  ASSY  LANG  PROG  MAN.,  PACE  54 

32CO  3150  *     HL  NOT  DISTURBED 

3200  3160  • 

3200  ib  00       3170  MUL 

3202  OE  09       3180 

3204  7B  fcl90  MUL2 

3205  IF  8200 
1206  5F  U210 
3207  00  3220 
1208  Co  J230 
3209  7A  8240 
12UA  D2  Ct  12  8250 
12UD  80  3260 
120E  IF  d270  MUL3 
320F  57  6230 
1210  C3  04  32  d290 
3213  0  300  * 

3213  8  110  *   DIV  SUBROUTINE 

32i3  3  120  *   DIVIDE  (DE)/(HL),  RRESULT  IN  HL,  REM  IN  DE 

1213  8130  *     BC  RESTORED,  A  DESTROYED 
3213  8140  * 

3213  C5  3350  DIV 

1214  44  336C 
3215  4D  3370 
1216  21  00  00  3330 
)2i9  IE  10  8  390 
121B  F5  8400  D1V1 
121C  29  8410 
121D  EB  8420 
121E  29  3410 
121F  EB  3440 

1220  D2  24  32    6450 

1221  21  8460 
1224  7D  8470  DIV2 
3225  91  84J0 
1226  6F  8490 
3227  7C  3500 
3223  93  85i0 
1229  67  8520 
322A  13  8530 
322B  D2  30  32  8540 
122E  09  8550 


PUSH 

9 

MOV 

B,H 

MOV 

C,L 

LXI 

H,C 

MVI 

A, 16 

PUSH 

psv: 

DAD 

11 

XCHG 

DAD 

H 

XCHG 

JNC 

DIV2 

[NX 

H 

MOV 

A,L 

SUB 

C 

MOV 

L,A 

MOV 

A, II 

sea 

B 

MOV 

H,A 

INX 

D 

JNC 

DIV1 

DAD 

B 

140 


PACK  lo 
ADDR  Bl  E.2  B3  F  LINE   LABEL      OPCD   OPERAND 


122F 

in 

3160 

OCX 

D 

1210 

Fl 

,T)7>! 

DIV3 

POP 

FSW 

3231 

3D 

S'iBO 

DCR 

A 

32  32 

C2  IB  12 

3SJ0 

JNZ 

CIV 

1 

323S 

Ci 

86CC 

POP 

Q 

12)6 

LB 

8610 

XCHO 

32  37 

C9 

3620 

RC7 

1233 

36  30 

* 

323a 

u640 

* 

PLOSC  TABLE 

3238 

86SU 

* 

PLOSIVE 

BURST 

PUL. 

3E  UU 

3213 

8660 

* 

3238 

CI 

Ro70 

PLOS< 

DU 

1 

*  p 

3219 

01 

8680 

3B 

i 

*  T 

32  !A 

C2 

8690 

D3 

2 

*  K 

321B 

02 

8  70  0 

'M 

2 

*  KX 

12  3C 

01 

37iO 

DU 

1 

*  E 

123D 

0: 

3720 

DB 

i 

*  D 

323E 

02 

87  30 

DB 

2 

•  G 

32  3F 

C2 

0740 

DB 

2 

*  GX 

3240 

37VJ 

* 

124" 

3  760 

• 

END  OF 

SECT  S 
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ADDR  31  D2  B)  E  LINE   LABEL 


OPCO   OPERAND 


2CCC 

20CO 

2000 

2000 

2C00 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2CC0 

20  0  0 

200  3  Ci    50 

2005 

2008 

2J0A 

200C 

20CF 

2012 

2015 

2018 

2018 

20iE 

20  21 

2024 

2027 

202A  CI  96 

202D  CI  DO 

203C  1C  n 

2012  5a 

2034  94 
20  36  DO 
2  J  38 
2  0  !A 
20  3A 
2C3A 
20  3  A 
20  3A 

2  0  3A 
3500 

3  500 
3  iOO 
3  SCO 
3500 
1102 
3504 
3504 
3104 
356  3 
3  5C2 
3621 
3680 
3SDF 
I6DF 
36E1 


12 


12 
32 


1  1 
31 
11 
OC  34 


0010 

0020 

00  30 

0040 

0050 

0060 

0070 

0080 

0090 

01CO 

OiiO 

0120 

Oi30 

0140 

0150 

Oi60 

0170 

CirfC 

0190 

0  200 

0210 

0220 

0  2  10 

0240 

C250 

0260 

C270 

023C 

0290 

C  100 

03i0 

0120 

0  3  30 

0  340 

0  350 

0  160 

0370 

0  3dO 

C390 

0  4  00 

04iO 

0420 

0  4  10 

0440 

04  50 

0460 

0  4  70 

0  4  80 

04  90 

0  500 

0  510 

0520 

0530 

C540 

0550 

0560 

C570 


PLAY  ROUTINE,  TARGET  TAOLES,  i    MISC 

SECTION  6  OF  THE  CSRl  SYNTHESIS  BY  RULE  SYSTEM 

LLOYD  HICE,   COMPUTALKER  CONSULTANTS 
VERSION  1.08    NAY  30,  1977 


COMMON  JUMP  ADDRESS  TABLE 


COM JMP 

* 

CSRl 

3LTADR 

BL'FEND 

PVTAB 

MATPAK 

/.ATERR 

RULES 

SETDUR 

RULES  3 

GENFO 

CLRBUF 

GENPRH 

MUL 

OIV 


ECU 

Do 
JMP 

DS 

DS 

DS 

DS 

DS 

OS 

DS 

3S 

DS 

DS 

DS 

DS 

DS 

JMP 

JMP 

OH 

DW 

DM 

DW 

DW 


PLAY 


GETCKS 

PCBFT 

FiTAR 

F2TAR 

F3TAR 

AVHTAR 

FPNTAR 


COMSAH  ORIGLN  DEFINITION 


ORG 
ECU 


COMJMP+1500H 
$ 


COM RAM 

•      CSRl    SYSTEM    RAM    SPACE    DEFINITION 


MATPTR 

NtCEND 

MATRIX 

HATLEN 

PHCODE 

FF.ATA 

FEATB 

STRES 

DUR 

MATENC 

BUFPTR 


DS 

2 

DS 

2 

ECU 

i 

ECU 

95 

DS 

MATLEN 

DS 

HATLEN 

DS 

HATLEN 

DS 

MATLEN 

DS 

MAT LEU 

ECU 

* 

CS 

2 
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ADDR   Bl    B2    B3    E    LINE       LABEL  OPCD      OPERAND 


36E1 

0580    *      THE    NEXT    19    L 

.OCATIONS 

ARE    USEC    IN    COMMON 

36E1 

0  590    *      WITH 

SECTION 

5.       THEY 

MUST    NOT    BE    MOVED 

)6Ei 

0600    * 

)6E1 

0610    OCODE 

DS 

1 

36E2 

0o20    OFEATA 

C3 

i 

36E3 

0630    OFEATE 

DS 

1 

36E4 

0640    ODUR 

DS. 

1 

3oE5 

0  650    OCID 

DS 

1 

36E6 

0  660    ORANK 

DS 

i 

36E7 

0670    CPCT 

DS 

1 

36Eo 

06H0    OT1MES 

DS 

1 

36E9 

0  690    * 

36E9 

0700    CODEX 

DS 

1 

36EA 

0710    FEATAX 

DS 

1 

36EB 

0720    FEATBX 

DS 

1 

36EC 

0730    DORX 

DS 

1 

36ED 

0740    C1DX 

DS- 

1 

36EE 

07  50    RANKX 

DS 

1 

36EF 

0760    PCTX 

OS 

1 

36FQ 

0"H0    TIMESX 

DS 

1 

36Fi 

07ac  * 

36F1 

0  790    3T 

DS 

1 

3GF2 

0800    FT 

DS 

1 

36F3 

0810    PC 

DS 

1 

36F4 

0820    * 

36F4 

36F4 

0840    * 

36F4 

0650    *       PLAY 

(LOCAL) 

RAM    WORKSPACE 

36F4 

0860    * 

36F4 

0  87  0    CTO 

DS 

3 

•   SPACE    FOR   CT-1    OUTPUT   CODE 

J6F7 

0680    * 

3t>F7 

36F7 

0900    * 

3  6F7 

0910 

ORG 

COMJMP+1250H 

3250 

0920    SECTAD 

ECU 

S 

3250 

09  30    * 

J25C 

0940    * 

3  250 

0950    *      DEFINITIONS    i 

?OR    PLAY 

SUBROUTINE 

3250 

0960    * 

3250 

0970    CTBASE 

ECU 

OEOH 

3  2  SO 

0980    CHANSW 

ECU 

15 

3250 
3  250 

0990    • 

3250 

1010    • 

3250 

1020     *       PLAYBACK    SUBROUTINE 

3  2  50 

10  30    * 

3  250 

11 

F4 

36 

1040    PLAY 

LXI 

H.CTO 

*    SETUP    CT-1    OUTPUT    SUBROUTINE 

3253 

3b 

03 

1050 

MVI 

« , OD  3H 

3255 

23 

1060 

lax 

H 

3256 

23 

1070 

INX 

H 

3257 

36 

C9 

1030 

MVI 

M.0C9H 

*   SETUP    RETURN 

3259 

2A 

06 

20 

1090 

LHLD 

BUFADR 

325C 

5E 

1100 

MOV 

E,M 

•   GET   Ff:AME    COUNT    (LOW    EYTE) 

325D 

23 

111c 

INX 

H 

325E 

56 

1120 

MOV 

D,M 

*       (AND    HIGH    BYTE) 

325F 

2) 

113<> 

INX 

H 

326C 

CD 

77 

32 

U40 

CALL 

CTOUT 

•   SET    CT-1    PARAMS    FROM    FRAME    1 
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ADDR  Bl  82  B)  E  CINE   LABEL 


OPCD   OPERAND 


C2 
D3 
CS 


326)  iB 

3264  3E 
3266  03 

3268  CO 
326B  CD 
326E  IB 
326F  7A 
3270  B3 
3271 
3274 
327, 
3277 
3277 
3277 
3277 
3277 
J277 
3277 
3277 
3277  06 
3279  OE 
327B  7o 
327C  32 
327F  7E 
3260  CD 
32B3  23 

3284  04 

3265  OD 
3236    C2 

3269  C9 
328A 
328A 
328A 
323A 
32oA  Er) 
32bfl    21 

3285  2B 
328F    7C 

3290  BS 

3291  C2 

3294  El 

3295  C9 
3296 
3296 
3295 
3296 
3296 
3296 

32  Jo 
3296 
3  296  2A 
3  299  01 
329C  7E 
329D  12 
3  29E  09 
329F  13 
32AQ    7E 


FF 
EF 

77     32 
8A     32 


68    32 

EF 


EC 
09 


FS    36 
F4    36 


7B     32 


20    0  3 


8E    32 


00     3S 

SF    00 


11  SO 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

12  30 
1240 
12S0 
1260 
1270 
1280 
1290 
1  300 
1310 
1320 

13  30 
1340 

use 

1360 
1370 
1  380 
1390 
1400 
1410 
1420 
1430 

14  40 
14S0 
1460 
i470 
1480 
1490 
1S0C 
1S1Q 
1S20 

15  30 
1S40 
1SS0 
iS60 
1S70 

isac 

1S90 
1600 
1610 
lb  20 
1630 
1640 
16SO 
1660 
1670 
1680 
i690 
1700 
171C 


DCX  D        *  COUNT  THAT  FPAKE 

HVI  A.2SS 

OUT  CTBASE+CKANSW  *  TURN  ON  CT-1 

PLALP       CALL  CTCUT    *  PLAY  THE  BUFFER 

CALL  DLY1C    *  WAIT  10  MSEC 

DCX  D 

MOV  A,D 

ORA  E 

JNZ  PLALP    *  LOOP  UNTIL  BUFFER  DONE 

OUT  CTBASE+CHAt.'SW  *  TURN  OFF  CT-1 

RET 
» 

*  CTOUT  PLAYS  ONE  DATA  FRAME  FROM  THE  BUFFER 

*  ON  ENTRY:  HL  FOINTS  TO  AV  OF  THE  FRAME  TO  PLAY 

*  SUBR  CTO  HAS  BEEN  SET  UP  AS: 
»  CTO   OUT  CI'BASE 

*  RET 

*  (DE)  ARE  UNCHANGED 


CTCUT 
CTLP 


MVI 

B.CTB 

MVI 

C.9 

MOV 

A,B 

STA 

CTO  +  1 

MOV 

A,M 

CALL 

CTO 

INX 

H 

INK 

B 

OCR 

c 

JNZ 

CTLP 

RET 

B.CTBASE    *    RE-INITIALIZE    CTO    ROUTINE 


*    OUTPUT    THE    PARAMETER 


*    GO    AROUND    9    TIMES 


DELAY    10    MILLISECONDS     (ASSUMES    2HHZ    CLOCK) 
(A)    CHANGED,    ALL    ELSE    RESTORED 


DLY10 


PUSH 
LXI 

DCX 
HOV 
ORA 
JNZ 
POP 
r!ET 


H 

11,800 

H 

A,H 

L 

5-3 

H 


*  GETCNS  SUBROUTINE 

*  GET  MISC  CONSTANTS  PERTAINING  TO  THE  CURRENT  PHON 

*  PUT  DATA  INTO  TABLE  BEGINNING  AT  (DE) 

*  ALL  REGISTERS  MODIFIED 

* 

GETCNS      LHLD  MATPTR 

LXI  B.MATLEN 

MOV  A,M  *   GET    CURRENT    PHOi:    CODE 

STAX  D 

DAD  e 

INX  D 

MOV  A,M  *    GET    FEATA 
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ADDS   81  .82   B  3    E    LINE      LABEL  OPCD      OPERAND 

STAX  D 

DAD  8 

INX  D 

MOV  A.K  •   GET    FEATb 

STAX  D 

DAD  B 

DAD  B 

INX  D 

MOV  A,H  •   GET    DURATION' 

STAX  D 

IHX  D 

LHLD  MATP1R       •    GET    CODE    AGAIN 

MC V  C , M 

KVI  8,0 

LX1  H.RAPCID 

DAD  B 

MOV  A, I'.  *   GET    RANK/PC/ID    BYTE 

MOV  L.A 

AN  I  7 

STAX  D  *    MASK    &    STORE    CID 

INX  D 

MOV  H ,  B 

DAD  H 

DAD  H 

DAD  H 

MOV  A,H 

STAX  D  *    STORE    RANK 

INX  D 

MCV  H,B 

DAD  H 

DAD  H 

MCV  A,h 

STAX  D  *    SHIFT    &    STORE    PERCENT 

INX  D 

CXI  H.TTIMES 

DAD  8 

MOV  A,M  *    GET   TRANSITION    TIMES    BYTE 

STAX  D 
RET 
* 

*  PCDFT    SUBROUTINE 

*  GET    PERCENT    AND    TIME    VALUES    FROM    MATRIX   ARRAYS 

*  SET    PC  =  PCVF(CIDX,0C1D) 

*  SET    BT=TAVF(OCID) 

*  SET    FT=TAVF(CIDX) 

*  ON  ENTRY:  B=0  TO  GET  AV/AH  INFO 

*  B#0  TO  GET  AF  INFO 
# 

PCBFT 


32A1  12 

1720 

32A2  0* 

1730 

32AJ  li 

174C 

32A4  7E 

17S0 

32AS  12 

1760 

J2A6  OS 

1770 

J2A7  09 

1780 

32Ab  13 

1790 

32A9  7E 

iaoo 

i2AA  i2 

1313 

3  2AB  13 

1820 

12AC  2A  00  3S 

la  50 

32AF  4E 

1840 

32UC  0b  00 

IB  SO 

32B2  21  4o  34 

i860 

32BS  J'J 

ib70 

32B6  7E 

i860 

32B7  6F 

1890 

!2Ub  E6  C7 

1900 

32BA  12 

1910 

32B3  13 

1920 

i2BC  60 

19)0 

32BD  29 

194Q 

328E  29 

19S0 

)23F  29 

1960 

32C0  7C 

1970 

32C1  12 

19BQ 

32C2  13 

1990 

3  2C3  60 

2000 

32C4  29 

2010 

32CS  29 

2020 

32C6  7C 

20  30 

32C7  12 

2040 

3  2CB  13 

20S0 

32C9  2i  (34  34 

20  60 

32CC  09 

2070 

32CO  7E 

2030 

32CE  12 

2090 

32CF  C9 

2100 

32DC 

2110 

32DO 

2120 

32DC 

2130 

32DO 

2140 

12D0 

2150 

32DO 

2160 

32D0 

2170 

32DC 

2180 

32DO 

2190 

32DO  3A  ES  3b 

2200 

!2D3  4F 

22iO 

32D4  B7 

2220 

32DS  31 

2210 

32D5  H7 

2240 

J2D7  bl 

22  SO 

32D<3  S7 

2260 

32D9  3A  ED  36 

2270 

32DC  32 

2280 

LDA 

OCID 

MOV 

C,A 

ADD 

A 

ACD 

C 

ADD 

A 

ACD 

C 

p.OV 

D,A 

LDA 

C1DX 

ADD 

D 
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AODR  Bl  32  8  1  E  LINE   LABEL 


OPCD   OPERANC 


12DD 

IF 

2290 

12DE 

lb 

C  J 

2  300 

12EO 

21 

CO 

14 

2  110 

12E1 

19 

2320 

32E4 

AF 

2110 

12ES 

3C 

2140 

32E6 

7E 

2  ISO 

12E7 

CA 

ED 

32 

2  16C 

32EA 

IF 

217C 

12EB 

IF 

2.3BO 

12EC 

iF 

2)90 

12ED 

E6 

07 

2400 

12EF 

12 

Fl 

lb 

2410 

12F2 

S9 

2420 

12F1 

21 

Fl 

14 

24  10 

12Fb 

EB 

2440 

12F7 

19 

2  4  SO 

)2Fb 

AF 

24bO 

12F9 

30 

2470 

12FA 

7E 

24dC 

12FS 

CA 

Bi 

It 

2490 

12FC 

IF 

2SC0 

12FF 

iF 

2SiC 

1  ICC 

IF 

2S20 

nui 

Eo 

07 

2SI0 

lici 

12 

Fl 

16 

2S40 

neb 

1A 

ED 

16 

2SS0 

1  109 

uF 

2S60 

iica 

2S 

CC 

2S7J 

3  ICC 

19 

2S8C 

hod 

AF 

2190 

hoe 

3C 

26C0 

130F 

7E 

2610 

3310 

CA 

ib 

13 

2620 

mi 

IF 

2610 

1114 

iF 

264  0 

ms 

iF 

2oSC 

3  lib 

E6 

C 

2660 

3  li8 

12 

F2 

lb 

2670 

131B 

C9 

2630 

131C 

269C 

3iiC 

270C 

in: 

271C 

IliC 

00 

2720 

IliD 

cc 

2710 

i)i£ 

C\l 

2740 

IliF 

cc 

2  7  SO 

112.' 

CO 

• 

2760 

1121 

E6 

277C 

1122 

:»! 

2760 

1121 

"1 

2790 

1  124 

'id 

260  0 

312S 

iS 

2di0 

1  12b 

67 

2620 

3127 

60 

2J3C 

3  12d 

77 

2640 

1329 

as 

23SC 

MOV 

E,A 

MVI 

D,0 

LX1 

H.PCVF 

DAD 

D 

XRA 

A 

ORA 

8 

KCV 

A,M 

JZ 

$+6 

RAK 

RAR 

RAR 

• 

AN  I 

7 

STA 

"PC 

I1CV 

E,C 

LXI 

H.TAVF 

XCHG 

DAD 

D 

XRA 

A 

ORA 

B 

MOV 

A,K 

JZ 

S  +  6 

RAR 

RAR 

RAR 

* 

AN  I 

7 

STA 

BT 

LDA 

CIDX 

MCV 

L,A 

MVI 

H,0 

DAD 

D 

XRA 

A 

ORA 

8 

MOV 

A,M 

JZ 

S  +  6 

RAR 

RAR 

RAR 

AH  I 

7 

STA 

FT 

RET 

*   Fl  TARGET  TABLE 


FiTAR 


*    PCVF    INDEX    IS    7'OCID+CIDX 


KEEP   AV/AH    ?C    VALUE 


SHIFT    OVER    TO    AF    PC    VALUE 


*  STORE  PERCENT  VALUE 

*  USE  OLD  CID  AS  TIME  TABLE.  INDE> 


*  KEEP  AV  TIME  CONSTANTS 

*  SHIFT  OVER  TO  AF  CONSTANTS 

*  STORE  BACKWARD  TIME  CONSTANT 

*  USE  NEW  CID  TO  INDEX  TAVF 


STOKE  FORWARD  TIME  CONST. 


DO 

C 

*    SPACE 

CH 

0 

*    PERIOD 

DB 

128 

*    COMMA    (PAUSE) 

CS 

0 

*    QUEST 

DB 

0 

•    t     (TERMINATOR) 

OB 

132 

•    IY 

DB 

147 

*    IH 

DB 

113 

*    EH 

ua 

66 

•    AE 

DB 

6S 

*    AA 

LB 

103 

*    AH 

CB 

109 

•    AO 

DB 

119 

*  ow 

DB 

149 

*    Ufl 
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ADDR    Bl    Q2 

B3    E    LINE      LABEL 

OPCD 

OPERAND 

3  32A    AS 

2S60 

DB 

168       • 

uw 

112?,    48 

2670 

DD 

72         ' 

AX 

3  32C    8b 

2880 

DB 

1  16       « 

IX 

3  32D    dD 

2o90 

DB 

141       ' 

ER 

332E    AF 

2900 

DB 

175       * 

ux 

3  32F    77 

2910 

DB 

ii9       • 

OH 

3  5 30    55 

2920 

D3 

o5         * 

AW 

3  )U    55 

29  30 

•  DB 

05         * 

AY 

3332    6U 

2940 

DB 

109       • 

OY 

3313    71 

2950 

DB 

113       • 

EY 

3  3  34    8D 

2960 

DB 

i41       « 

RX 

33  35    95 

2970 

DB 

149       ' 

LX 

3  3  36    AB 

2980 

DB 

171      • 

wx 

3  3  37     3b 

2990 

DB 

152       ' 

YX 

3  3  38    A 5 

3CC0 

oa 

165       < 

WK 

3  3  39    CO 

30iO 

DD 

c      •• 

EL 

3  3  3A    00 

3020 

CB 

0            ' 

EH 

333B    OC 

30  30 

'    DB 

o         ■> 

EN 

3  3  3C    AS 

3040 

DB 

168       ' 

R 

3330    A2 

3050 

DB 

162       • 

L 

333E    E3 

3060 

DB 

179 

*  w 

3  3  3F    C2 

1070 

OB 

194       ' 

•    Y 

3  340    EF 

3080 

DB 

2  39 

'    M 

3341    EF 

3090 

DB 

239 

*    N 

3  342    EF 

310U 

OB 

239 

'    NX 

3  34  3    BE 

3110 

DB 

190 

•    P 

3344    EE 

312C 

DB 

19C 

•    T 

3345    DE 

3130 

DB 

190 

•    K 

334b    BE 

314  0 

DB 

190 

'    KX 

3347    BE 

3150 

DB 

190 

»    B 

3348    BE 

3i60 

DB 

190     . 

•    D 

3349    BE 

3170 

C3 

190 

1    G 

3  34A    BE 

3idO 

DB 

190 

•   GX 

3J4B    BE 

3190 

DB 

190 

•    DX 

334C    EE 

3  20O 

DB 

190 

•    F 

3  B4D    BE 

)2i0 

DB 

190 

•    TH 

3  J4E    BE 

3220 

DB 

190 

>    S 

3  34F    BE 

3230 

DB 

190 

*   SH 

3350    3E 

3240 

DB 

i90 

•    V 

3351    BE 

3250 

DB 

190 

*    DH 

3352    BE 

3260 

DB 

190  ■ 

•    Z 

3  35  3    SE 

3270 

ca 

190 

•    ZH 

3354    00 

3280 

DB 

0 

•    CK 

3  355    00 

3  290 

CB 

0 

*    JH 

3  35b    8C 

3  300 

DB 

12S 

*    HH 

3  3  57    80 

3310 

DB 

128 

•  Q 

3358 

3320    • 

3  358 

3330    *       F2 

TARGE?    TABLE 

3  3  58 

3340    * 

3358    00 

3350    F2TAR 

DB 

0 

*    SPACE 

3  3c  '    OC 

3  360 

DB 

0 

*    PERIOD 

3  35A    60 

3370 

DB 

128 

•    COHMA    (PAUSE) 

3  3  5B    OC 

3  3dC 

DB 

0 

»   QUEST 

3  35C    CU 

1390 

DB 

0 

•    t     (TERSIKATCR) 

3  350    58 

3400 

DB 

88 

•    IY 

3  35E    6A 

3410 

DB 

10b 

•    1H 

335F    75 

3420 

DB 

H7 

•    EH 

147 


PAGt    07 


ADDR    Bl    B2    33    E    LIWE      LABEL 


CPCD      OPERAND 


3  360 

71 

14  10 

1  161 

'ju 

3440 

1  162 

AC 

3450 

)  161 

Bl 

3460 

i  164 

w2 

3470 

3165 

ao 

3430 

3366 

U3 

3490 

3  167 

AC 

1500 

1363 

79 

1510 

3  169 

i2 

3520 

116A 

80 

3530 

3  36U 

C2 

3540 

i  S6C 

96 

3550 

115D 

9  5 

116  0 

336E 

C  1 

3570 

3  IGF 

6A 

3530 

H70 

HD 

3590 

3  171 

Bl 

360  0 

3  372 

CC 

3610 

117  3 

61 

3620 

1374 

CC 

3b  30 

1175 

30 

3640 

3  176 

OC 

3650 

1377 

00 

3  660 

3378 

Bi 

)670 

3379 

36 

3680 

3  17A 

CC 

3690 

1373 

64 

3700 

117C 

BE 

3710 

317D 

7  9 

3720 

337E 

6A 

37  10 

1  17F 

BE 

374  0 

1  130 

79 

37r>0 

3  181 

40 

1760 

3  132 

oD 

)770 

1  13  1 

BE 

3780 

1  134 

7  9 

)790 

3135 

4D 

3b00 

1  136 

CO 

3810 

1  137 

7  9 

3820 

1  188 

d  r 

)8)0 

3139 

ao 

3840 

113A 

•)i 

3350 

1  133 

5E 

)360 

3  3HC 

BE 

3870 

3  13D 

BO 

1660 

118E 

92 

1890 

1  18F 

Z  c- 

3900 

3  190 

'JO 

1910 

319i 

oc 

1920 

1)92 

no 

19  10 

1  19  1 

u  J 

1^40 

1194 

19  50 

1)54 

I960 

1  194 

3970 

)  194 

CO 

I960 

)  19  5 

oo 

1990 

DB 

111       • 

AE 

CB 

150       < 

AA 

OB 

160       * 

a;i 

DB 

179       « 

AO 

LB 

194       * 

OVi 

DB 

132       < 

UH 

DB 

±55       < 

uw 

OQ 

160       * 

AX 

DB 

121       < 

•    IX 

DO 

146       • 

En 

DB 

141       « 

'  ux 

DE 

194       • 

'    OH 

DB 

150       « 

AW 

CB 

150       * 

A* 

DB 

179       ' 

OY 

DB 

106       « 

EY 

C3 

141       ' 

RX 

OB 

177       « 

LX 

DB 

20  4       « 

XX 

OB 

100       i 

*x 

OR 

204       ' 

•    KK 

DB 

0            * 

EL 

DB 

0            ' 

EM 

DB 

O                        * 

EN 

CB 

177        ' 

R 

C'J 

i84        « 

L 

CD 

220        ' 

'A 

DB 

100        ' 

'    ¥ 

DQ 

190 

r     f.] 

DB 

121       > 

*     N 

DB 

106       * 

MX 

DB 

190 

P 

CB 

121 

•    T 

DB 

77 

'    K 

DB 

141 

•    KX 

on 

190 

•    P 

LB 

121 

*    D 

DB 

77 

'    G 

CQ 

141 

'   GX 

D3 

121 

•    DX 

DE 

190 

*    F 

DG 

128 

'    TH 

DB 

146 

k    S 

DB 

94 

1    Sll 

DB 

190 

*    V 

D3 

123     . 

►    Oil 

D3 

146 

*    Z 

08 

94 

*    ZH 

CO 

0 

»  ci: 

DO 

0 

»    JH 

DB 

123 

»    MH 

DB 

123 

»    -> 

»      F3    TARGET    TABLE 


F  3TAK 


DB 

on 


SPACE 
PEKICD 


148 


PAGE  08 


ADDR  Dl  D^  E  1  E  LINE   LABEL 


3  396    AC 

4000 

1197    00 

4010 

1398    00 

4C20 

3399    84 

40  30 

3  39A    A7 

4040 

3  3M3    30 

4  USC 

3  i9C    B5 

4  0  60 

i  39D   ?n 

407C 

3J9E    5F 

4080 

3  39F    AC 

409C 

3  3AO   C6 

4100 

13A1    BE 

4iiC 

)i/\2    EE 

4i20 

3  3A  3    A3 

4130 

1  3A4    E5 

4140 

3  3A5    FF 

4150 

33A6    BE 

4160 

I3A7   ca 

4170 

3  3A8    SB 

4180 

3  1A9    93 

4190 

3  3AA    AC 

4  200 

3  JAB    BO 

4  210 

3  3AC    FF 

4220 

3  3AD    8H 

4230 

3iAE   C8 

4240 

3  3AF    AC 

42*50 

3  SBO    39 

4  260 

33B1    CO 

4270 

33B2    00 

4280 

)3B  3    00 

4290 

i  1B4    FF 

4  300 

SIB1!    b8 

4  310 

33Bb    B9 

4  320 

i!B7    54 

4330 

3  3BB    DC 

4  340 

3  3B9    A3 

4350 

13BA    FJ 

4  360 

3  3BE    DC 

4370 

noc  a) 

4380 

UBD    AC 

4  39C 

liBE    FF 

4400 

i3BF    DC 

4410 

3  3CO    A3 

4  4  20 

)  3CI    AC 

4430 

3!C2    FF 

4440 

3  3C3    A3 

4450 

3  3C4    D2 

4460 

3  3C5    9B 

44^0 

33C6    A7 

44B0 

3  3C7    9B 

4490 

3  3CU    D2 

4  500 

3  3C9    9D 

4  510 

3  3CA    A7 

4  520 

3  3C0    9B 

4530 

3  3CC    00 

4  540 

3  3CD    00 

4550 

3JCE    AC 

4  560 

OPCD 

OPERAND 

D3 

172       ' 

CCKMA    (PAUSE) 

D3 

0            * 

QUEST 

DO 

0            * 

»   (TER.ii:;AToa) 

DB 

132       « 

IY 

DB 

167       * 

IH 

DB 

175      * 

EH 

DB 

181       • 

AE 

DS 

155       • 

AA 

L3 

159       « 

AH 

DB 

172       « 

AO 

DB 

200       • 

ow 

DB 

190       ' 

UH 

DB 

190      • 

UW 

DB 

163       • 

AX 

DB 

131       " 

IX 

DB 

255       < 

ER 

DB 

190       ' 

UX 

DB 

200       « 

OK 

DB 

155       • 

AW 

DB 

155       - 

AY 

DB 

172       < 

OY 

DB 

176       < 

EY 

DB 

255       ' 

RX 

DB 

139       « 

LX 

DE 

20C       ' 

wx 

DB 

172       ' 

YX 

DB 

185       ' 

WH 

DB 

0            ' 

EL 

DB 

0            * 

EM 

DB 

0            ' 

EN 

D" 

255       ' 

R 

DG 

136       ' 

'    L 

DB 

185 

>    V. 

08 

132 

'    Y 

DB 

220       < 

•    M 

DB 

163 

»   N 

DS 

243 

'    NX 

DB 

220 

'    P 

DB 

163 

•    T 

UB 

172 

»    K 

DB 

255 

'    KX 

DB 

220 

'    B 

DB 

16  1 

'    D 

DC 

172 

•   G 

DB 

255 

■    GX 

DB 

ib3 

►    DX 

DB 

2iC 

■    F 

DB 

i55 

1    TH 

DB 

167 

»    S 

DE 

155 

►   SH 

DB 

210 

»    V 

DB 

155 

*    DH 

DB 

167 

•    2 

DB 

155 

*    Z  il 

CB 

C 

►    CH 

DO 

|1 

•    JH 

DB 

172 

»    HH 

149 


FACE    09 


ADDR    El    B2    B3    E    LINE       LABEL 


OPCD      OPERAND 


3  3CF 
3  3DO 

3  3DC 

noc 
noc 
3  3di 

3302 
3  30  i 
3)04 
3)0'. 
3  30  6  EC 
3  3D7  EO 
3  3D6 
1)09 
3)DA 
)3D3 
3)DC 
HDD 
DDE 
HCF 
J3E0 
33E1 
J  !E2 
33E3 
33E4 
3  3ES 
3  JE6 
3  3E7 
3  1E3 
3  3E9 
3  3EA 
3  3EB 
3  1EC 
3  3ED 
3  1EE 
3  1EF 

3  1FC 

3  3Fi 

3  IF  2 

1  IF) 

33F4 

3  irS 

3  JF6 

!3r  7 

)  !F6 

)1F9 

3  3FA 

3  3FB 

)1FC 

3  BFU 

3  3FE 

3  3FF 

MOC 

3401 

I4C2 

MC) 

34C4 


CO 

oo 

EC 


EO 
EO 

EO 
EO 
EO 
EC 
EO 
EO 
EO 
EO 
EO 
EC 
EO 
EO 
EO 
EO 
EC 
EO 
EO 
EO 
EA 

oo 
o  o 

00 

AO 
AC 
AC 
AO 
AC 
AC 
Al) 


oc 
oc 

40 
4C 
4C 

4  0 
00 
C  0 

oc 

OS 
0  8 
EO 


4S70 

DB 

172   • 

0 

4SdC  » 

4S9C  •   AV/AH 

TARGET 

TABLE 

4  600  * 

4  61C  AVI1TAR 

D8 

0     « 

SPACE 

462C 

D8 

0     * 

PEHOO 

46  30 

DB 

0     ' 

COMMA  (PAUSE) 

4640 

OB 

0     • 

QUEST 

46SC 

08 

0     « 

1  (TERMINATOR) 

466C 

DB 

224  * 

IY 

4670 

DB 

224   < 

IK 

4690 

OB 

224   « 

EH 

4690 

OB 

224   • 

AE 

4700 

DB 

224   « 

AA 

4710 

OB 

224   • 

AH 

4720 

03 

224   • 

AC 

47)0 

D8 

224   • 

OW 

4  740 

US 

224   « 

UII 

47r>0 

DB 

224   « 

uw 

4760 

CB 

224   < 

AX 

4770 

DB 

224   ' 

IX 

47b0 

DB 

224   ' 

ER 

4790 

DB 

224   ' 

UX 

4800 

DB 

224   < 

OK 

4310 

DB 

224   ' 

AW 

4820 

DB 

224   ' 

AY 

4830 

DB 

224   « 

OY 

4840 

DB 

224   • 

EY 

48SC 

DB 

224   ' 

'  RX 

4660 

DB 

224   ' 

•  LX 

4370 

DB 

224   < 

'  ViX 

4830 

DB 

224   • 

'  YX 

4890 

DB 

234 

•  WH 

4900 

DB 

0     < 

'  EL 

4910 

DB 

0     » 

'  EH 

4920 

DB 

0     1 

•  EN 

4  9)0 

DB 

160 

'  R 

494(1 

DB 

160 

»  r 

4  9  SO 

DB 

160 

*  A 

4  960 

DE 

ibO 

'    Y 

4970 

DP 

j.60 

•  M 

4980 

D5 

160 

»  N 

4990 

03 

i60 

»  NX 

SO  0  0 

DB 

0 

*  P 

SOiO 

DB 

0 

*  T 

S02C 

OB 

0 

»  K 

SO  30 

DB 

0 

'  XX 

SO  40 

DP- 

64 

*  E 

SOSC 

DB 

64 

*  D 

SC60 

DB 

64 

•  G 

SO  70 

DB 

64 

•  GX 

S030 

DO 

o 

•  DX 

S090 

08 

0  ' 

»  F 

SiCO 

DB 

0 

*  Tl! 

SilO 

DB 

1 

»  S 

S120 

DB 

8 

»  SH 

S13C 

D8 

224 

•  V 

150 


PAGE    1C 


ADDR    Bl    B2    Bi    E    LINE      LAMEL 


OPCD      OPERAND 


3405  EC 

5140 

C8 

224   * 

OH 

340b  E5 

5150 

D8 

229   * 

Z 

3407  E8 

5160 

DB 

2  32   * 

ZH 

1403  JO 

=1170 

DB 

0     * 

CH 

3409  C<! 

S180 

DB 

0     * 

JH 

340A  QA 

5190 

DB 

10 

HH 

340B  80 

5200 

DB 

128   * 

Q 

340C 

52iC  * 

34UC 

5220  * 

FF/AF/AN  TARGET  TABLE 

34CC 

5230  * 

340c  au 

524C  FRNTAR      OB 

128   • 

SPACE 

J4CD  80 

5250 

DB 

12b   * 

PERIOD 

HOE  30 

5260 

DB 

126   • 

COMMA  (PAUSE) 

S4CF  30 

5270 

DB 

123   • 

QUESTT 

3410  80 

5260 

DO 

128   * 

}  (TERMINATOR) 

3411  30 

5290 

DO 

128   « 

IY 

3412  oO 

5300 

U3 

i2d   * 

IH 

3413  ao 

5  310 

D8 

128   * 

EH 

3414  80 

5320 

DB 

123   « 

AE 

3415  30 

5  3  30 

DB 

128   « 

AA 

341b  30 

5  340 

DB 

128   « 

AH 

3417  dO 

5  350 

DB 

128  * 

AO 

3413  80 

5360 

DB 

128   • 

OW 

3419  80 

5  370 

DB 

128  * 

UH 

341A  fcO 

5  180 

DB 

123   ' 

UW 

341B  00 

5390 

DO 

128  * 

AX 

341C  60 

5400 

DB 

128   ' 

IX 

341D  80 

5410 

DB 

128   ' 

ER 

341E  30 

5420 

DB 

128   * 

UX 

341F  30 

54  30 

DB 

123   < 

OH 

3420  30 

5440 

DB 

123   » 

'  AW 

3421  30 

5450 

DB 

128   ' 

'  AY 

34  22  80 

5460 

DB' 

123 

'  OY 

3423  30 

5470 

DB 

123   ' 

'  EY 

3424  30 

5480 

DB 

128   ' 

'  RX 

3425  oO 

5  49  0 

DB 

123   ' 

•  LX 

34  26  80 

5500 

DB 

128 

'  « 

3427  80 

5510 

DB 

123 

'  YX 

3428  uO 

5520 

DB 

128 

>  v:h 

34  29  30 

5530 

DB 

123 

'  EL 

3  4  2A  80 

5540 

DB 

128 

»  EM 

3  4  2B  80 

55  50 

DB 

i28 

►  EN 

34  2C  80 

5560 

DB 

128 

•  R 

142D  80 

5570 

DB 

128 

'  L 

342E  60 

5580 

DB 

123 

•  W 

342F  80 

5  5'jO 

D8 

123 

•  Y 

34  30  32 

5600 

DB 

130 

•  M 

3431  82 

5610 

DB 

130 

*  N 

3432  32 

5o20 

DB 

130 

*  NX 

3433  aO 

56  30 

DB 

128 

'  P 

34  34  80 

5040 

D3 

123 

»  T 

3  4  3ri  30 

5650 

DB 

i2a 

*  X 

34)6  60 

5660 

DB 

123 

•  KX 

34  37  30 

5670 

DB 

123 

•  E 

3433  80 

5630 

DB 

128 

•   D 

34)9  80 

5690 

03 

123 

»  a 

34  (A  30 

57O0 

DB 

128 

•  GX 

151 


PACK  11 


ADDR  Bl  U2  33  E  LINE   LABEL 


OPCD   OPERAND 


14  3B 

80 

1710 

143C 

30 

1720 

34  ID 

7  0 

1710 

14  !E 

98 

1740 

14  )F 

74 

1710 

14  40 

3  0 

1760 

1441 

74 

1770 

1442 

y8 

178C 

1441 

74 

1790 

1444 

80 

1800 

1441 

30 

iarc 

1446 

80 

1820 

1447 

30 

181C 

1448 

1840 

1448 

1310 

1448 

1860 

1448 

CO 

1870 

1449 

00 

1880 

144A 

80 

1890 

144B 

00 

1900 

144C 

c  o 

1910 

144D 

ii 

1920 

144E 

n 

1910 

144F 

ii 

1940 

14  SO 

n 

1910 

1411 

ii 

1960 

3412 

ii 

1970 

1411 

n 

19d0 

1414 

ii 

1990 

1411 

n 

6000 

1416 

n 

6010 

1417 

ii 

6020 

1418 

ii 

60  10 

1419 

n 

6040 

141A 

ii 

6010 

14  IB 

ii 

6060 

141C 

ii 

6070 

14  ID 

ii 

60  80 

141E 

ii 

6090 

14  IF 

ii 

6100 

1460 

n 

6110 

1461 

IS 

6120 

1462 

11 

6110 

14t>  1 

11 

6140 

1464 

IE 

6110 

1461 

CO 

3160 

1466 

0  0 

6170 

1467 

0  0 

6180 

1468 

IE 

6190 

1469 

!E 

6200 

I46A 

!E 

6210 

146B 

IE 

5220 

146C 

1) 

6210 

146D 

1  1 

6240 

346E 

1  i 

6  210 

346F 

12 

6260 

147C 

12 

6270 

DB 

128 

♦  DX 

DB 

176 

*  F 

CB 

112 

*  TH 

DB 

112 

*  S 

CB 

lie 

*  SH 

DC 

176 

*  V 

DB 

116 

*  DH 

CO 

112 

*  Z 

DB 

116 

*  ZH 

DE 

128 

«  CH 

DB 

128 

*  JH 

D3 

128 

*  HH 

DB 

12o 

*  Q 

*   RANK/PC/ID  TABLE: 


RAPCID 


DB 

0 

*  SPACE 

DB 

Q 

*  PERIOD 

DB 

128 

•  COMMA  (PAUSE) 

DB 

0 

*  QUEST 

DB 

0 

*  »  (TERMINATOR) 

DB 

17 

*  IY 

DB 

17 

*  IH 

DB 

17 

*  Efl 

DB 

17 

*  AE 

DB 

17 

*  AA 

DB 

17 

*  AH 

DB 

17 

*  AO 

DB 

17 

*  OW 

DB 

17 

*  UH 

DB 

17 

»  uw 

DB 

17 

*  AX 

CB 

17 

*  IX 

DB 

17 

*  ER 

DB 

17 

*  UX 

DB 

i  n 

*  Oil 

CB 

17 

*  AW 

DB 

17 

*  AY 

DB 

17 

*  OY 

DB 

17 

*  EY 

CB 

17 

*  RX 

DB 

62 

*  LX 

DB 

49 

*  •.« 

CB 

49 

*  YX 

DB 

aZ 

*  WH 

DB 

0 

*  £L 

DB 

0 

*  EK 

DB 

c 

*  EN 

DB 

62 

•  R 

DB 

62 

*  L 

DB 

bi 

*  W 

DB 

62 

*  Y 

CB 

8  1 

*  M 

DB 

8) 

*  N 

DB 

81 

•NX 

DB 

82 

*  P 

DB 

82 

*  T 

152 


PACL    12 


A  DDR 

Dl    B2    ! 

3    E    LINE 

LASEL 

CKD 

OPERAND 

5471 

52 

6280 

DS 

62       » 

K 

1472 

12 

6290 

DB 

62       « 

KX 

U7  i 

53 

6  100 

00 

8  1       * 

P 

1474 

Si 

6110 

DB 

8  1       • 

D 

)47r> 

5  3 

5320 

DB 

81       • 

G 

1476 

51 

6  no 

DB 

81       ' 

GX 

1477 

Si 

6  140 

DB 

8  1       ' 

OX 

1478 

7C 

6  ISO 

DO 

i24    « 

F 

1479 

7C 

6  160 

DD 

i24    « 

TH 

H7A 

7C 

6)70 

DB 

124    « 

S 

147a 

7C 

S380 

DB 

124    * 

SH 

147C 

70 

6  190 

DB 

125    ' 

V 

)47D 

^D 

6400 

DB 

125    • 

OH 

347E 

70 

6410 

DO 

125    « 

Z 

147P 

10 

6  4  20 

DB 

125    < 

ZH 

14bO 

uo 

64  10 

Dt 

CH 

14bl 

uo 

6440 

DB 

0          ' 

J 11 

1432 

do 

64  SO 

Dl 

i  14    « 

1IH 

148  1 

31 

6460 

DB 

111    ' 

Q 

t-164 

6470 

* 

1484 

6480 

*      TRANSITION    TIMES    TABLE 

>  icJ4 

6490 

* 

14B4 

00 

6  500 

TT1.MES 

DB 

0         ' 

SPACE 

MB") 

«0 

6510 

DB 

0 

'    PERIOD 

")4b6 

IJA 

6520 

DO 

10       « 

COMMA    (PAUSE) 

14o7 

00 

6  5  10 

DB 

o       * 

2UEST 

1488 

00 

5540 

DB 

0 

•    i     (TERHIt.'ATOK) 

1489 

A  A 

6SS0 

DB 

170    • 

'    IY 

14BA 

AA 

656C 

DB 

170    ' 

IH 

)4bB 

AA 

bS7  0 

DB 

170    < 

'    EH 

148C 

AA 

5SB0 

DB 

170 

•    AE 

1480 

A  A 

6  590 

DB 

170 

'    AA 

34bE 

AA 

6600 

DB 

170 

'    AH 

14BF 

AA 

oolO 

D3 

170 

»    AO 

1490 

AA 

6o20 

DB 

170 

>  ow 

1491 

AA 

6b  10 

DO 

170 

'    UH 

1492 

AA 

6640 

DB 

170 

»  uw 

149  1 

AA 

6650 

DB 

170 

'    AX 

J494 

AA 

6660 

DB 

170 

'    IX 

1495 

AA 

5670 

DB 

170 

'    ER 

149o 

AA 

6680 

DB 

17C 

•    UX 

1497 

AA 

6690 

DB 

170 

•    OH 

349D 

AA 

6700 

DB 

170 

•    AK 

1'99 

AA 

6710 

DB 

170 

'    AY 

149A 

AA 

6720 

DB 

170 

»    OY 

149B 

A  A 

67)0 

DB 

170 

•    EY 

149C 

77 

6740 

DB 

il9 

•    RX 

149U 

74 

6750 

DB 

116 

»    LX 

149E 

AA 

6760 

DB 

170 

•  wx 

149F 

AA 

6770 

DB 

170 

»    YX 

14A0 

74 

67B0 

DB 

116 

•    XH 

14A1 

0  0 

6790 

DB 

0 

•    EL 

14A2 

00 

6a00 

DB 

0 

•    EM 

!4A! 

00 

6610 

DO 

0 

■    t)M 

14A4 

74 

6620 

DB 

lib 

•    R 

34A5 

74 

ou  10 

LB 

116 

'    L 

14  A  6 

74 

oS40 

dh 

116 

»    K 
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34A7 

74 

6aso 

34A8 

60 

6860 

34A9 

7C 

6870 

34AA 

90 

68UC 

34AB 

SO 

6H9C 

MAC 

70 

6900 

34AO 

30 

6910 

34AE 

90 

6920 

34AF 

60 

6930 

34BC 

7C 

6940 

3481 

90 

69SC 

34B2 

90 

6960 

34B3 

7  0 

6970 

1434 

14 

6580 

UBS 

S4 

6990 

34B6 

S4 

7000 

3437 

S4 

7010 

3438 

S4 

7020 

34B9 

S4 

7030 

348A 

S4 

7040 

34B3 

S4 

70  SO 

343C 

cc 

70  60 

343D 

00 

7070 

343E 

OA 

7C80 

34BF 

)A 

7090 

!4CC 

7100 

J4C0 

711C 

)4C0 

7120 

)4C0 

7130 

14C0 

7140 

34CO 

24 

7  ISC 

34Ci 

0  9 

7160 

)4C2 

■CC 

7170 

)4C3 

0  0 

7180 

J4C4 

0  9 

7190 

i4CS 

0  9 

72C0 

)4C6 

0  3 

7210 

!4C7 

09 

7220 

i4Cb 

24 

7250 

)4C9 

12 

7240 

)4CA 

12 

72SC 

14C3 

12 

72bO 

34CC 

14 

7270 

34CD 

24 

7280 

14CE 

:o 

7  29  0 

)4CF 

12 

7)00 

)4DC 

24        . 

731C 

1401 

00 

7320 

3402 

12 

7330 

34D3 

12 

7340 

3404 

12 

7  ISO 

34DS 

00 

7  360 

!4D6 

12 

7  370 

3407 

00 

7)80 

3408 

24 

7  390 

3409 

12 

7400 

140A 

12 

7410 

DD 

116     * 

1 

C3 

96       » 

A 

DB 

112    ' 

N 

DB 

144    < 

NX 

Dfct 

80       ' 

P 

CO 

112    • 

T 

D3 

144    • 

K 

CB 

144    « 

KX 

DB 

96       < 

•    B 

DB 

112    ' 

0 

DB 

144    « 

>  a 

DB 

144 

'    GX 

DB 

112 

•    DX 

D3 

84 

'    F 

DB 

84 

'    TH 

DB 

84 

»   S 

DB 

34 

•    SH 

DB 

84 

*    V 

DB 

84 

•    OH 

CB 

84 

•   z 

DB 

84 

'    ZH 

DB 

0 

'    CH 

DB 

0 

•    JH 

DO 

10 

1    HH 

DB 

10 

*  0 

AF  PC/AV  PC  ARRAY,  PERCENT  CFOSS1NG  VALUES 
(BITS  l-S)/32  -  AF  PERCL.'.T  BCLMDARY  XING  VALUE 
(BITS  0-2)/4  «  AV  PERCENT  BOUNDARY  XING  VALUE 


PCVF 


DB 

)2  +  4 

* 

OLD    CID-O, 

NEW    CID-0 

DB 

8+1 

» 

OLD    CID-C, 

NEW    CID-1 

D8 

0 

* 

" 

-2 

DB 

0 

* 

ETC. 

DB 

8  +  1 

DB 

8  +  1 

DB 

8  +  1 

DB 

8  +  1 

* 

OLD    CID-1, 

NEW    CID-0 

03 

)2  +  4 

* 

1 

DB 

16  +  2 

1 

DB 

16  +  2 

DB 

16  +  2 

CB 

16  +  4 

DB 

32  +  4 

DB 

0 

* 

OLD    -2, 

NEW    -0 

CB 

16  +  2 

DB 

32  +  4 

DB 

0 

DB 

16  +  2 

DB 

16  +  2 

CB 

16  +  2 

DB 

0 

• 

3,       0 

DB 

16  +  2 

DB 

0 

DB 

)2  +  4 

DB 

16+2 

DB 

16  +  2 
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J4DB 

12 

7420 

DB 

16  +  2 

14DC 

'J  9 

743C 

DB 

8  +  1    •    ETC 

HDD 

12 

744C 

DB 

16  +  2 

!4DE 

12 

74  SO 

DB 

16+2 

34DF 

"2 

7460 

DB 

16  +  2 

J4EC 

24 

7470 

DB 

32  +  4 

34E1 

24 

7480 

DB 

32  +  4 

34E2 

12 

749C 

DB 

16+2 

34E3 

09 

7500 

DB 

8  +  1 

34E4 

14 

7510 

D3 

16+4 

34E5 

12 

7120 

DB 

io  +  2 

S4E5 

12 

7530 

DB 

16  +  2 

14E7 

22 

71 4  0 

DB 

32  +  2 

34EB 

24 

7150 

DB 

32  +  4 

14E9 

14 

7560 

DB 

16  +  4 

I4EA 

09 

7570 

DB 

8  +  1 

34EB 

24 

7530 

DB 

32+4 

!4EC 

12 

75*0 

DB 

16+2 

34EO 

12 

76CO 

DB 

16  +  2 

)4EE 

12 

761C 

DB 

16  +  2 

34EF 

14 

7620 

□  B 

16  +  4 

!4F0 

24 

76  30 

DB 

32  +  4 

34F1 

7  64  0 

• 

14F1 

76  50 

*   AF/AV 

TRANSITION  TIME  TABLE 

!4Fl 

7  660 

*   (BITS 

3-5)/8 

-  AF  TKANSITIO 

J4F1 

7670 

*   (BITS 

U-2)  - 

AV  TRANSITION 

34F1 

Q0 

7600 

TAVF 

DB 

0      *  CID»0 

34F2 

OB 

7690 

DB 

8+3    *   «1 

34F3 

00 

7700 

DB 

0      *   -2 

34F4 

00 

77i0 

DB 

0      *   -3 

34F5 

18 

7720 

DB 

24+0   *   -4 

14F6 

IB 

77  10 

D8 

24+3   «   »5 

34F7 

03 

7740 

DB 

8+)    •   »6 

34F3 

7750 

* 

J4F8 

7760 
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APPENDIX  C 

P-3  FLEET  PILOT 
QUESTIONNAIRE 


This  questionnaire  has  been  prepared  by  a  Thesis 
student  in  the  Aeronautical  Engineering  Curriculum  at  the 
Naval  Postgraduate  School,  Monterey,  California.   The  general 
topic  of  the  Thesis  deals  with  aircraft  warning  systems;  those 
in  the  current  state  of  the  art  and  those  proposed  for  future 
aircraft.   This  questionnaire  specifically  deals  with  the  P-3 
Orion  aircraft.   Part  One  deals  with  the  current  system,  its 
strengths  and  weaknesses.   Part  Two  is  concerned  with  proposals 
for  future  P-3  cockpit  designs.   Some  questions  require  brief 
written  answers.   Please  do  not  spend  too  much  time  en  these. 
Incomplete  sentence  structure  is  acceptable,  just  ensure  your 
idea  is  there.   You  are  also  asked  to  complete  the  following 
items  that  we  may  have  a  good  idea  of  your  experience  level. 
This  does  not  mean  we  will  ignore  "low  time  JO's",  however. 
A  cockpit  must  be  designed  to  adequately  accomodate  all 
experience  levels  of  pilots,  and  we  want  to  knew  what  each 
type  of  pilot  feels  about  the  P-3.   The  name  is  optional,  of 
course,  but  would  help  us  to  recontact  you  in  the  event  one  of 
your  Ideas  merits  further  consideration  and/cr  requires  clari- 
fication.  Also  we  would  like  to  give  credit  where  it  is  due. 
If  you  have  any  comments  or  additional  ideas  in  this  area  not 
covered  by  this  questionnaire,  please  feel  free  to  use  any 
free  space  for  your  comments  or  attach  an  additional  sheet  if 
necessary. 


NAME 


AIRCRAFT  QUALIFICATIONS 
P-3  QUALIFICATIONS  


PREVIOUS  SQUADRON  TOURS 

FLIGHT  TIME. IN  P-3  

TOTAL  FLIGHT  TIME 
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PART  1 

The  questions  in  this  part  are  concerned  with  the 
adequacy  of  the  current  instruments /warning  systems  in  the 
P-3  aircraft. 

1.  Do  you  feel  that  the  current  instrument/warning  system  in 
the  P-3  is: 

a)  more  than  adequate? 

b)  adequate? 

c)  could  be  improved  upon? 

2.  What,  if  any,  instrument/warning  devices  would  you  replace 
and  with  what? 


3.   What  additional  instruments  do  you  feel  would  significantly 
improve  the  safety  and/or  instrument  flight  capabilities 
of  the  P-3? 


4.  How  do  you  feel  about  the  placement  cf  the  instruments  In 
the  P-3  cockpit? 

a)  excellent  -  no  problems  with  position 

b)  acceptable  -  only  a  few  instruments  are  inconveniently 

placed 

c)  marginal  -  many  instruments  are  inconvenient 

d)  unacceptable  -  critical  instruments  are  not  readily 

accessible  in  certain  circumstances 

5.  If  your  answer  to  question  4  was  c)  or  d),  please  briefly 
explain  your  answer.   List  the  instruments  in  question,  and 
the  particular  instance  when  their  placement  would  make  them 
difficult  to  read. 


6.   Do  you  have  any  other  comments  concerning  the  current 
instrument/warning  system  in  the  P-3? 
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PART  2 

The  second  part  of  this  questionnaire  is  concerned 
with  possible  devices  which  may  be  included  in  future  P-3 
models. 


Recognizing  the  fact  that  a  pilot  or  flight  engineer  may 
be  able  to  gain  valuable  information  from  an  instrument 
due  to  its  relative  needle  position,  how  do  you  feel  about 
replacing  all  dial  guages  with  digital  readouts? 

a)  don't  like  the  idea  -  requires  each  individual 

guage  be  read  and  takes  too 
much  time 

b)  think  its  a  good  idea  -  like  the  accuracy  of  the 

digital  readouts 

c)  no  opinion  either  way 

d)  other  (please  explain) 


Suppose  all  dial  guages  were  replaced  with  digital  readouts, 
the  numerals  of  which  changed  color  according  to  the 
following  code: 

GREEN  -  normal  range 

YELLOW  -  outside  normal  range,  but  still  safe 

RED  -  danger  zone 

Now  how  would  you  feel  about  these  instruments? 

a)  still  don't  like  the  idea 

b)  didn't  like  it  before,  but  do  now 

c)  like  the  digital  readouts,  but  dcn't  think  the 
color  code  is  necessary 

d)  like  digital  readouts  more  now  because  of  the 
color  code 


3.   If  a  Heads  Up  Display  were  proposed  for  the  P-3*  what 

information  would  you  desire  it  present  to:   a)  the  pilot?, 
b)  the  copilot? 
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4.   Do  you  feel  the  HUD  should  be  projected  on  the  side  as 
well  as  the  forward  windshield?  Why? 


5.   Do  you  feel  it  would  be  advantageous  to  have  the  HUD 

incorporate  the  Master  Caution  lights  (i.e.,  when  a  Master 
Caution  light  illuminates,  it  is  also  repeated  on  the  HUD)? 


Assuming  that  a  computer  could  be  designed  which  would 
be  capable  of  monitoring  all  flight  systems  and  parameters 
(engine  performance,  pressuriza tion,  electrical  system,  etc.) 
and  be  linked  to  the  navigation  system  so  that  it  would  "know" 
at  all  times  the  position  of  the  aircraft,  consider  the 
following  questions: 

6.   If  the  computer  could  perform  certain  emergency  procedures 
for  the  pilot,  which  would  you  prefer  it  be  allowed  to 
handle? 


7.   Which  would  you  not  allow  the  computer  to  handle  under  any 
circumstances? 


8.   Which  would  you  allow  it  to  perform  only  with  pilot 

approval  (such  approval  to  be  given  by  alphanumeric  code 
or  spoken  into  a  microphone)? 


159 


9.   How  would  you  prefer  the  computer  warn  the  pilot  of 
impending  failures  or  abnormal  readings? 

a)  by  a  printed  message  on  a  CRT 

b)  by  speaking  the  message  (assume  the  computer  can  be 
made  to  "talk"  in  an  easily  recognizable  "voice") 

c)  both  of  the  above  methods 

d)  other  (please  explain) 


10.   How  would  you  feel  about  a  system  where  the  computer  had 
primary  control  of  the  landing  gear  and  flap  system? 
Assume  that  the  functions  were  voice  controlled  and  the 
computer  would  not  allow  gear  or  flap  extension  above 
limit  airspeeds.   Also  assume  that  the  current  system 
remained  as  a  mechanical  backup. 

strongly  oppose  the  concept  -  too  dangerous 

like  the  idea  -  the  computer  would  lower  the  geat 

and/or  flaps  when  called  for  and 

not  miss  the  call 

c)  no  opinion 

d)  other  (please  explain) 


11.   Would  you  prefer  that  the  computer  be  programmed  to  lower 
the  gear  and  flaps  as  the  aircraft  approached  the  ground? 
Assume  the  system  were  armed  only  below  500  feet  and  when 
combinations  of  low  airspeed/power  settings  indicated  to 
the  computer  that  the  aircraft  was  being  landed.   (Obviously, 
this  is  designed  to  prevent  gear  up  landings.   Comments, 
please . ) 

a)  don't  like  the  idea  (Why?) 

b)  like  the  idea  because  it  would  prevent  gear  up 
landings 

c)  like  the  idea  because  it  would  reduce  pilot  workload 

d)  other  (please  explain) 
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12.   Briefly  describe  in  the  following  space  any  ideas  you  might 
have  concerning  cockpit  design.   Suggestions  are  specifi- 
cally requested  for  improvements  in  cockpit  instrumentation/ 
warning  devices,  items  which  you  would  like  to  see  delegated 
to  a  computer  (with  or  without  pilot  approval),  and  anything 
which  would  reduce  pilot  workload  in  an  emergency  situation. 
Also  use  this  space  if  you  did  not  have  enough  room  to 
answer  any  of  the  previous  questions.   Be  sure  to  number 
your  answers  appropriately. 
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